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INTRODUCTION 


HI, AND WELCOME to this bumper 
book of programs. Your Computer 
began publishing readers’ programs in 
a special feature, called Pocket 
Programs, back in December 1982. 
They have been incredibly popular 
with our readers ever since and now 
appear every second month. 

‘Happily, the supply of programs 
has outstripped our demand, which 
means we have a never-ending stock 
of good-quality programs to offer 
other readers. Recently, however, we 
have been embarrassed by the 
backlog. Programs were coming in 
much faster than we could print them 
and we were beginning to get buried 
under a growing pile of listings and 
documentation. 

The solution was obvious: let’s get 
all the programs together and publish 
the lot in one big collection. The 
contributors get to see their programs 
in print, you get a whole swag of 
programs to try out on your computer 
and we get to see what our desks 
look like. 

Anyway, here they are: programs 
for the beginner through to the 
advanced; technical programs and 
games programs; programs from kids 
aged ten up to adults aged seventy. 
Programs in a variety of languages 
for all the popular machines and the 
more obscure ones as well. You will 
find lots of programs to use on your 
computer straightaway, and lots more 
that you can adapt from other 
computers and languages. 

You will see we have divided the 
programs according to the machine 
they're written for: Apple, Commodore, 
Sinclair and so on. Don't restrict 
yourself just to looking at the brand 


you own. Many of the other machines’ 


programs can easily be changed to 
run on different computers, and there 
are notes in some to suggest how 
you might go about doing this. In the 
miscellaneous section there are 
programs you can check out that are 
written more for a particular language 


than a particular machine. 

There are also a few tricks to 
typing in the program that might be 
useful. Here are some hints | have 
found useful. 

First, place a ruler under the line 
you are typing to mark your place. 
You don’t want to start typing the 
wrong line midway through another, 
or leave a couple out. The results 
can be catastrophic, almost as 
confusing as that last sentence. 

Next, check the data in data 
statements very carefully. When you 
type in normal commands and make 
a mistake it is usually pretty obvious. 
For example: 


IB A>O THEN ABORT 
is a lot easier to correct than, say: 
1000 DATA 143,233,233,087,323 


One check you can make is to 
count how many numbers you should 
have typed in and how many you 
have typed in. You can also get 
someone to help you by reading the 
data to you while you type it in. If 
nothing else it makes for a more 
social occasion and makes your 
husband or wife, mother or father, 


‘feel wanted. 


When you have typed in a program 
it may return an error. When you 
discover the line causing the error 
don’t just check it and think “That 
looks OK”. The best thing to do is 
read the line backwards, letter for 
letter and check each letter, number 
or control code against what you 
have typed in. That way you don't 
assume that everything is correct as 
you quickly flick your eye over the 
line. You plod through and verify 
every single character. 

If you’re still having trouble finding 
an error, another trick is to put a 
trace on the execution to follow the 
path the program takes. If your 
program loops uncontrollably you can 
use a command (TRON in many 
BASICs) which will show you the line 


numbers as they are being executed. 
Another thing you can do if you don't 
want to trace through the whole 
program is to sprinkle PRINT state- 
ments throughout or in selected 
locations. These can tell you all sorts 
of things about the execution. They 
can just say, “Hi, I’m at line 100 and 
everything is fine!”, or they can tell 
you the value of the variable that 
seems to be causing the crash: “The 
value of C is 20.” 

With these few debugging tools, 
hopefully you should be able to work 
out about 99 per cent of the problems 
you may face. Of course, there is 
always that worst of bugs, the 
invisible, undetectable bug. These 
little monsters will have you tearing 
your hair out, glaring at your screen 
until three in the morning and in spite 
of your best efforts will never make 
themselves apparent. Often such 
bugs will cause you to despair, sell 
your computer and go on a skiing 
holiday to Europe with the proceeds. 

It happens to every programmer 
from rank beginner to seasoned 
professional. For example, one of my 
computing lecturers was frowning at a 
listing a student had brought to her 
for some help. Another student 
noticed the frown and offered assist- 
ance. 

“The bug must be in this line,” 
said the lecturer, “but I’ve been 
looking at the rotten thing for two 
hours and there is nothing wrong with 
it. We've looked at everything; 
whatever it is must be pretty weird to 
cause an error.” “Let's have a 
peep then,” chirps the helpful student. 
“Ah yes, that comma should come 
before the variable, not after.” 

It had taken him three seconds to 
find the bug. It is times like that 
when quite talented people can get 
turned onto the alternative lifestyle, 
but please don’t despair. Sometimes 
things can be extremely complicated 
with computers, but far more often 
they are extremely simple. The 


solution is to get a second opinion. 
Another programmer used to get his 
kids to check his syntax when he ran 
into an error. They didn’t know a 
thing about computers, but if he 
explained the way syntax worked they 
could pick up the obvious mistakes 
which he had looked at for hours 
without noticing. 

Also, you should consider joining a 
computing club. You will certainly 
meet lots of people who will gladly 
take a look at a listing and point out 
any bugs that might be causing 
trouble. A full listing of clubs in 
Australia and New Zealand is printed 
in this book, and we update it from 
time to time in Your Computer. 

If you still can’t find the bug after 
trying all these avenues it is time to 
despair, sell your computer and buy 
a sailboard with the proceeds. 

Hopefully, having tried some of the 
programs in this magazine you will 
be inspired to write some programs 
of your own that you would like to 
submit to us for publication. Please 
feel free to do so. The programs we 
like best are ones that have some 
creativity about them. Say, a new 
way of performing an old routine, or 
a game that has not been put on a 
computer before, or a useful routine 
that works faster than any that are 
around at the moment. 

If you are a rank beginner don't 
think there are no programs you can 
send in. There are plenty of other 
rank beginners out there who will 
probably find that your programs are 
just at the level they can understand. 
So, send those programs rolling in. 

We hope you have lots of fun with 
the programs in this magazine. There 
is something for everyone. And, as 
my desk diary for today says, “You 
should try everything once, except 
incest and folk dancing”, which I'll 
admit is a trifle weird, but it’s not a 
bad approach to trying out the pro- 
grams! 

Enjoy and Keep On Computing! 
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There’s a whole world of ‘action’ on the 
bands between 30 MHz and 500 MHz. No 
matter whether you’re interested in 
VHF/UHF Dx, or just the local ‘chatter’, a 
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world of action. 
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Australian SCANNER’S WORLD is the book that will 
introduce you to that other world ‘beyond the 
shortwaves’. It contains an introduction to scanning and 
scanners, an article on scanner antennas — including 
how to build two types for yourself, along with how to 


erect antennas. The major part of this book 
is the ““Listener’s Guide’’, computer — sorted 
listings of services throughout Australia and 
New Zealand, with their frequencies listed in 
both frequency order and alphabetical order 
by service. Beacons are listed also, along with 
relevant overseas ones. A roundup of 
scanners, antennas and accessories is also 
included. 
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FROGGER 


Frogger is a two part program, 
connected by the CHAIN pro- 
gram on the DOS 3.3 SYSTEM 
MASTER. The _ listing REM 


CHAIN is expected to be pre- 
sent on the disk when FROG- 
GER is run. 

To guide the frog: 


FROGGER should be saved A — up, J — left, K — right, Z 
under the name of “FROG- — down. 
GER”, and the other under M.J. Smith 
“FROGGER@”. A_ copy of Waramanga ACT 
REM <<< FROGGER> >> 
S = 2 
GOSUB 3000 
ROT= O: SCALE= 1: HCOLOR= 3 
= Pe of 
B= 1230:FC = 140 
S1 = 10:82 = 20:83 = 8:84 = 12 
FB = 130:FC = 140 
DS = CHR (4) 
GOSUB 20090 
POKE 232,0: POKE 233,64 
ABR = 9O:AC = 200:AD = 6O:AE = 180:AF = 210:AG = SO:AH = 210:AI = 
Si = Si + 3:82 = $2 + 3:83 = $3 + 3:84 = $4 + J 
GOTO 350 
POKE - 162368,0 
YF = FC:“F = FB 
IF ~ = 218 THEN FD = FD - 1: IF FD <¢ O THEN FD = O 
IF X = 218 THEN 140 
IF ~ = 193 THEN FD = FD + 1: IF FD = 5 THEN 10000 
IF X~ = 193 THEN 140 
IF X = 203 THEN FB = FB + 20: IF FB > 250 THEN FB = 250 
IF X = 203 THEN 140 
IF X = 202 THEN FB = FB ~- 20: IF FB < 30 THEN FB = 30 
IF X = 202 THEN 140 
RETURN 
IF FD © THEN FC = 140 
IF FD = 1 THEN FC = 112 
IF FD = 2 THEN FC = 85 
IF FD = 3 THEN FC = 59 
IF FD = 4 THEN FC = 31 
ROT= 0: SCALE= 1 
HCOLOR= 4 
DRAW 1 AT XF,YF 
HCOOLOR= 1 
DRAW 1 AT FRB,FC 
Sc = sc + 10 
POKE - 16368,0 
IF FD = O THEN” RETURN 
IF FD = 1 THEN Fl = AB:F2 = AC 
IF FD 2 THEN Fi = AD:F2 = AD 
IF FD = 3 THEN Fl = AF!IF2 = AG 
IF FD = 4 THEN Fl = AH!F2 = AI 
IF FB > Fl - 27 AND FB <¢ Fil + 27 THEN 330 
IF FB > F2 - 27? AND FB < F2 + 27 THEN 33 
RETURN 
GOSUB 2000 
FR = 130:FC = 140 
GUTG 350 
FDO = 0 
HGR 
ROT= 0: SCALE= 1 
HCOLOR= 4: DRAW 2 AT AB,1190: DRAW 2 AT AC,110 
AR = AB + S1:AC = AC + Sl: IF AB 279 THEN AB = 0 
IF AC > 279 THEN AC = 9 
HCOLOR= 7: DRAW 2 AT AB,119: DRAW 2 AT AC,i10 
IF FD = ! THEN GASUB 230 
“™ =. PEEK ( - 16384): IF * > 127 THEN GOSUE 80 
Hen MPs 42° RPNT= 37" NPRAW 2 AT AN,9S!: RNT= N 


430 AD = AD - S2: IF AD ¢ © THEN AD = 279 
440 HCOLOR= 7: ROT= 22: DRAW 2 AT AD,9S: 
442 IF FD = 2 THEN GOSUB 230 

445 X = PEEK <‘ - 16384): IF X > 12? THEN 
450 HCOLOR= 4: DRAW 2 AT AF,57!: DRAW 2 AT 
460 AF = AF + S3:AG = AG + S3: IF AF > 279 
470 IF AG > 279 THEN AG = 0 

480 HCOLOR= 7: DRAW 2 AT AF,57: DRAW 2 AT 
482 IF FD = 3 THEN GQOSUB 230 

485 X = PEEK ( - 16384): IF X > 127 THEN 
490 HCOLOR= 4: ROT= 32: DRAW 2 AT AH,43: 
495 AH = AH - S4:AI = AI - S4: IF AH << OT 
S00 IF AI < @ THEN AI = 279 

S10 HCOLOR= 7: ROT= 32: DRAW 2 AT AH,43: 
SZQ HCOLOR= 1: ROT= FE: SCALE= 1 

S32 IF FD = 4 THEN GOSUB 230 

540 DRAW 1 AT FB,FC 

S50 X = PEEK ( - 16384): IF X > 127 THEN 
560 POKE - 16368,0 

570 GOTO 370 

2000 TEXT : HOME 

2005 RESTORE 

2019 VTAB 10 

2020 PRINT " SSSSS PPPPPP) LL AAAA 
2030 PRINT " SSSSSSS PPPPPPP LL ABABA 
2090 PRINT " SSS SS PP PP LL AA 
2050 PRINT " SSss PP PP LL AA 
2060 PRINT " SSSSSS PPPPPPP LL AAARAA 
2970 PRINT " SSSSSS PPPPPP LL AAAAK 
2080 PRINT " SSS PPP LLLLLL AA 
2090 PRINT " SSSSSSS PPP LLLLLL AA 
2100 PRINT " SSSSS PPP LLLLLL AA 
2110 FOR I = 1 TO 2 

2112 FOR II = 1 TO 25: READ DD: POKE 0,DD 
2114 RESTORE : NEXT 

2120 LL = LL + 1: IF LL > 3 THEN S000 

2130 RETURN 

5000 TEXT : HOME 

S020 PRINT : PRINT : PRINT " BAD LUCK!" 
5030 PRINT : PRINT " YQURE SCORE WAS "3S 
S040 IF SC > 5000 THEN PRINT " 

5050 FOR I 1 TO 25: READ DD: NEXT 

So55 FOR I = 255 TO 1 STEP - 3: POKE O,I 
5060 DATA 250, 250, 250, 250, 250, 200, 200, 200 
0,0,9,0, 200, 200 

5100 END : 

@000 POKE 768,169: POKE 769,4: POKE 770,1 
,234: POKE 774,234: POKE 775,173: POKE 776 
R001 POKE 777,192: POKE 778,136: POKE 779 
82,1: POKE 783,240: POKE 784,8: POKE 785,2 
S002 POKE 786,208: POKE 787,246: POKE 788 
1,7: POKE 792,2: POKE 793,96: POKE 794,208 
S010 RETURN 

10000 HCOLOR= 4: DRAW 1 AT FB,FC 

190002 HCOLOR= 1: DRAW 1 AT FRB,? 

10005 PRINT CHR® (4)3;"BLOAD CHAIN, AS20" 
10010 CALL 520"FROGGER2" 

19000 REM DATA FOR SHAPES 

20000 DATA  2,0,6,9,40,9,63,54,63, 36,640, 
553,46, 36,36,63 

20005 DATA 

4,54,54,54,54,54,54 

20010 DATA 


36,37,44,36,37,60,36 


20015 DATA  39,60,36,63,39,36,63,63,63, 
20018 FOR I = 1 TO 25: READ D: NEXT 
20020 FOR LOC = 16384 TO 16485: READ PP: 
20030 RETURN 


ROT= 0 
GOSUB 80 
AG, 57 
THEN AF 


fe) 
AG, 57 
GOSUB 80 


DRAW 2 AT AI,43 
HEN AH = 279 


DRAW 2 AT AI,43 


GOSUB 30 
A TTTTTTT® 
AA TTTTTTT" 
AA TTT" 
AA TTT" 
AR TTT" 
AR TTT" 
AQ TTT" 
AA TTT" 
AA TTT" 

: CALL 768: NEXT 
C 


NOT A BAD SCORE" 


CALL 768: NEXT 
, 150,150,150, 100, 100,50,0,0,0,0, 200, 20 


33: POKE 771,1: POKE 772,234: POKE 773 
,48: 
,208: POKE 780,4: POKE 781,198: POKE 7 
O2: 
,166: POKE 789,0: POKE 790,76: POKE 79 


54,59,46,53,54,63,54,59,37,499,45,45,45 


36,44, 37,36, 36,55, 54,63, 36, 63,0, 63,63, 39, 36, 63,63,63,55,59,63,63,5 
45,45,54,46,45, 95,495, 36,494,495, 495,45, 95,495,549, 46,495,45,95, 36,44,45, 


55,54,63,63,63,0,0,0,0,0 


> 


POKE LOC,PP: NEXT LOC 


4 


PERSPECTIVE 


If you've ever wondered: how 
they do those fancy 3D 
graphics displays on the TV 
ads, then this program is for 
you. The program requires the 
user to supply the 3D coordi- 
nates of the vertices which 
make up an object. The user 
must also specify which points 
are to be joined by straight 
lines. Once the object has been 
defined, it is displayed on the 
high resolution graphics screen 
and can be scaled up or down 
or rotated about any of the 
three spatial axes using a joys- 
tick connected to Port 2. 

The data which defines the 
shape can also be saved on a 
tape file for subsequent reload- 
ing. 

Objects can be described 
with up to 48 vertices, allowing 
quite realistic ‘wire frame’ draw- 


ings to be displayed. The dis- 
play shows the object in true 
perspective, initially straight 
down the ‘Y’ axis. Rotation 
about the ‘Z’ axis is achieved by 
moving the joystick left or right, 
about the ‘X’ axis by moving the 
joystick up or down and about 
the ‘Y’ axis by pressing the fire 
button. With the fire button held 
down the object continues to ro- 
tate about the ‘Y’ axis. When 
the fire button is next pressed 
rotation recommences but in 
the opposite direction. Rotation 
about all three axes at once is 
thus possible. 

The HIRES graphics routines 
must be present in memory be- 
fore the program is run. The 
program itself is then loaded in 
two parts — a BASIC program 
which POKEs the perspective 
graphics routines and variables 


into memory, followed by the 
program which allows definition 
of shapes, scaling and tape file 
handling. The loader program 
splits the data into eleven sep- 
arate blocks to facilitate check- 
ing and correction of data. 
Shapes are rotated by incre- 
ments of two degrees and the 
speed of rotation is dependant 
on the complexity (number of 
vertices) of the object. Whilst 
rapid, smooth movement is not 
possible with a computer such 
as the Commodore 64, move- 
ment is acceptably fast — but 
judge that for yourself. 
Definition of shapes 
accomplished in two stages: 
1) The X, Y and Z coordinates 
of each of the vertices which 
make up the object are first 
supplied by the user. In general, 
these coordinates should not 
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IF FD = 2 THEN HCOLOR= 1: DRAW 1 AT FB,FC 
GOSUB 230 
¥ = PEEK ( - 16384): IF X > i27 THEN GOSUB 80 


HCOLOR= 4: DRAW 2 AT AF,52: DRAW 2 AT AG,52 
AF = AF + S35AG = AG + S3: IF AF > 279 THEN AF 
IF AG > 279 THEN AG = O 

HCOLOR= 7: DRAW 2 AT AF,52: DRAW 2 AT AG,52 
IF FD = 3 THEN HCOLOR= 4: DRAW 1 AT FE,FC:FB = FB + SF: IF FB > 270 OR FB 
THEN 300 

IF FD = 3 THEN HCOLOR= 1: DRAW 1 AT FB,FC 

GOSUB 230 
x = PEEK ( - 16384): IF X > 127 THEN GOSUB 80 

HCOLOR= 4: DRAW 2 AT AH,25: DRAW 2 AT AI,25 
AH = AH + S4:AI = AI + S4: IF AH ¢< O THEN AH = 279 

IF AI ¢< O THEN AI = 279 

HCOLOR= 7: DRAW 2 AT AH,25: DRAW 2 AT AI,25 

HCOLOR= 1: ROT= FE: SCALE= 1 

IF FD = 4 THEN HCOLOR= 4: DRAW 1 AT FB,FC:FB = FB + SF: IF FB > 270 OR FB 
THEN 300 

IF FD = 4 THEN HCOLOR= 1: DRAW 1 AT FB,FC 

HCOLOR= 4: DRAW 1 AT FB,FC 

GOSUB 230 

IF FB > 270 OR FB «< 10 THEN GOTO 300 

HCOLOR= 1: DRAW 1 AT FB,FC 


WW 
1) 


X = PEEK ( - 16384): IF X > 127 THEN GOSUB 80 
POKE - 16368,0 

GOTO 370 
TEXT : HOME 
RESTORE 
VTAB 10 
PRINT " SSSSS PPPPPP LL AAAAA TTTTTTT" 
PRINT “ SSSSSSS PPPPPPP LL AAAAAAA TTTTTTT" 
PRINT “ SSS SS PP PP LL AA AA TTT" 
PRINT " SSS PP PP LL AA AA TTT" 
PRINT " SSSSSS PPPPPPP LL AAAAAAA TTT" 
PRINT " SSSSSS PPPPPP LL AAAAAAA TTT" 
PRINT " SSS PPP LLLLLL AA AA TTT" 
PRINT " SSSSSSS PPP LLLLLL AA AA TTT" 
PRINT " SSSSS PPP LLLLLL AA AA TTT" 


FOR I = 17T02 
FOR II = 1 TQ 30: READ DD: POKE O,DD: CALL 768: NEXT 
RESTORE : NEXT 


SF = 0 
LL = LL + 1: IF LiL > 3 THEN S000 - 

RETURN 

TEXT =: HOME 

PRINT © PRINT : PRINT " BAD LUCK!” 

PRINT : PRINT " YOURE SCORE WAS "3;SC 

IF SC > 5000 THEN PRINT " NOT A BAD SCORE" 


FOR I = 1 TO 25: READ DD 

FOR I = 0 TO 255 STEP 6: POKE 0,1: CALL 768: NEXT 

DATA 250, 250, 250, 250, 250, 200, 200, 200, 150, 150, 100, 100,0,0,0,255,0,0,0,255,0 
,255,0,0,0,9,0,0 

FOR I = 255 TO 1 STEP - 6: POKE O,I: CALL 768: NEXT 

END 

REM FD=5, OR HOME!! 


IF FB ¢<¢ 5SO AND FB > 30 AND Hi = QO THEN Hi = 1: GOTO 7100 
IF FB ¢< 100 AND FB > 80 AND H2 = O THEN H2 = 1: GOTO 7100 
IF FB ¢< 150 AND FB > 130 AND H3 = O THEN HS = i: GOTO 7100 
IF FB < 200 AND FB > 180 AND H4 = O THEN H4 = 1: GOTO 7100 
IF FR ¢ 250 AND FB ? 230 AND HS = C THEN HS = 1: GOTO 7100 
GOTO 3c0 


REM SUCCESS! ! 
= 1 TQ 12: POKE 9, INT ¢{ RND (1) *# 100 + 1): CALL 768: NEXT 


ee 

nN 

Ir 
Whe Ow 
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1 THEN DRAW 1 AT 49,9:°HH = HH + 1 
TF H2 = 1 THEN DRAW 1 AT 390,9:HH = HH + i 
IF H3 = 1 THEN DRAW 1 AT 140,9:HH = HH + 1 
IF H4 = 1 THEN DRAW 1 AT 190,9°HH = HH + 1 
IF HS = 1 THEN DRAW 1 AT 240,9°HH = HH + 1 
TF HH = 5 THEN H1 = O:FH2 = OFHS = OFH4FA = Q2HS = O:5C = SC + 1000: FOR I = 
30: POKE O, INT ¢ RND (1) * 255): CALL 768: NEXT 


GaTa 100c0 
POKE 768,169: POKE 769,4: POKE 770,133: POKE 771,1: POKE 772,234: FOKE 773 11 
34: POKE 774,234: FOKE 775,173: POKE 774,48: 

1 POKE 777,192: POKE 778,175: POKE 779,202: FOKE 780,4: POKE 751,198: FOKE 7? > 


z 


Two co-ordinates are entered 
in the form (X1,Y1) and 
(X2,Y2). From this data, the 
computer will work out the equ- 
ation of the line joining these 


LINEAR EQUATION 


also give the midpoint, distance, 
gradient, y-intercept and x-inter- 
cept of the line. It takes into ac- 
count whether the gradient, y- 
intercept or x-intercept is unde- 


fined. 

Great for working out maths 
homework. Will work on any 
computer using BASIC. 


S. Chan 
Minto Heights NSW 


two points. It takes into account 
whether the line is vertical or 
not. 

In addition, the computer will 


io CLS 
20 INPUT'*ENTER CO-ORDINSTES (X1,Y1)"3 %1,Y1 
30 INPIT*ENTER CO-ORDINATES (X2,Y2)'3 X2,Y2 
4O PRINT :PRINT sPRINT 
50 REM + MIDPOINT+ 
60 Mi=(X1+X2) 2 3 Mox(¥1+Y2) 72 
70 PRINT'MIDPOINT S €'sMts? , heMae* 9 
80 REM +DISTANCE+ 
90 D=SQR(((X1-X2).TM. CX1- X2) +0 0¥1-Y2). TM. (Y1-Y2))) 
100 PRINT'DISTANCE ia 
110 REM +GRADIENT+ 
120 IF X1-X2=0 THEN 160 
130 G=(Y1-Y2)/(X1- X2) 
140 PRINT'GRADIENT 3'3G 
150 GOTO 170 
160 PRINT'GRADIENT : LINE IS VERTICAL’ 
170 REM +Y-INTERCEPT+ 
180 IF X1-X2=0 THEN 220 
185 IF Y1-Y2=0 THEN 195 
190 R=Y1-(G.T.X1) 3:GOTO 200 
195 BeYi 
200 PRINT'Y-INTERCEPT 3'3B 
210 GOTO 230 
220 PRINT’Y-INTERCEPT 3 'INDEFINED’ 
230 REM +X-INTERCEPT+ 
240 IF Y1-Y2=0 THEN 280 
245 IF X1-X2=0 THEN 255 
250 C=-B/G sGOTO 260 
255 C=X1 
260 PRINT’ X-INTERCEPT 3'3C 
270 GOTO 290 
280 PRINT'X-INTERCEPT : UNDEFINED’ 
290 PRINT :PRINT 
300 REM +EQUATION+ 
310 IF X1-X2=0 THEN PRINT*EQUATION 3 X ='$X18GOTO 400 
320 IF Yi-Y2=0 THEN PRINT'EQUATION 3: Y =*3Y¥13GOTO 400 
330 IF B=O THEN PRINT'EQUATION ¢ Y ='gG3'¥'sGOTO 400 
340 IF B.LT.O THEN FRINT* EQUATION $Y ="sGs3"°X -*sABS(8) sGOTO 4 
00 
350 PRINT*’EQUATION 3 Y ='3G3°X +°58 
400 REM 
410 PRINT.AT.960,'"PRESS °L* TO RUN AGAIN'S 
420 IF INKEY$.LT..GT.°L* THEN 420 ELSE RUN 
> eega> PORE OCT, 249: SOVk 7e4.,e: Pac Sy a es 
mA? POS. SS, 70St POE Yer, 244? Pore vous hOS&? PORE. "G?,0: PORE 750,762 POKE 7s 
§ 5 Ae - fee? Ome —e« ’ ish. Ses? .* ‘Ne G7 et FS, fo FN 5 Pid 2 a ao 
-y PRR OPE ot FORE Pea, TS! Pee Pea, Poo: 
es PE TUR 
LOO PCOLTh= 8° BR4AW + AT Se Fe 
RT a Ble a ee al eu @ fas 2" PLoAr CHATM Pua 
: ate ee PPL = of s fg twee 
Bl tae 2 4, er aes =P See 
2 COG BATS m9 55G,75710,0,62,54,62,36,50,55,56,495,53,54,462,545,545,57,44,45, 45, 4,5 
a5 9h, oo, 26,63. 
DAANQE DATA 36,494, 37, Shy Shy 55554 565,55,65,0,62, 62, 65,55, 55,55, 55,54, 55, 4,355, 54, 
534.96.57,46.54, 464, 
wer ws rt TY Tv 7. _ < ee “ - e i a A= 3 42° 4 —_~ —~ — > — : — + : ' : 
POO! ATA €4,°5,45,45,45, 92, 35,42,45, tots Ve 5, B27 5g Sl y SF go gSBs Ors 36,37,306,536, 60 
es cr cee” an ca any ae 
2 t's ae | ate ce Foes Ss 3 
2Q0Q1S PLATA £9,03,63,63,65,62,63,0,65,55,59,63,63,63, 
2OODLA FOR I = 1 T9 30: READ D: NEXT 
2AN2N FOR I = 14384 TO !6424: READ D: POKE kaise GEST 
209350 CETLURN & 


SPECIAL FUNCTION KEYS 


This program will let you type in 
commonly used DOS com- 
mands (CATALOG etc) and 
Applesoft reserved words 
(INPUT, FOR, NEXT etc) using 
the control characters. For 
example, typing control-l will 
cause the word INPUT to ap- 
pear exactly as though you 
have just typed it in from the 
keyboard, character by char- 
acter-but it only takes a small 
fraction of the time. Great news 
for hunt and peckers! 

The list of keywords and the 
control characters which repre- 
sent them are given in the table. 
Putting stickers on the keys is 
fine in the short term, but even- 
tually they tend to gum up the 
works (pun intended). 

Notice that not all the avail- 


able control characters are 
used. Some are used by Apple 
for special purposes (namely 
control — C,D,G,H,J,K,M,S,U,X). 

To type in this program, first 
ensure that DOS has been 
booted, then enter the Monitor 
by typing CALL —151 when you 
will see the prompt *. Now sim- 
ply type in each line of the hex 
code as it appears in the listing 
— begin each line with the line 
number, to be followed im- 
mediately by a colon (:) and 
then the first 2 digit hex code 
and so on. After entering the 
program, type 3DOG to return 
to Applesoft. Save the program 
on disk using the command: 
BSAVE CUSTOM _ KEYS, 
A$9500, L$FF 

To use the control character 


CAST OF CONTROL CHARACTERS 


CATALOG control 
List control 
RUN control 


FOR control 
NEXT control 
STEP control 
THEN control 


CALL control 
PEEK ( control 
POKE control 
PLOT control 


V 
L 
R 
F 
N 
Zz 
T 
A 
E 
) 
P 


GOSUB 
GO TO 


control 
control 


< Ww 


INPUT control 


PRINT 


“JH 


Clrs scrn control W 


set 40 col 


disc Volume 
List 
Run 


For 

Next 
Ztep 
Then 


cAll 
pEek ( 
poke 
Plot 


gosuB 
Y looks like a branch 


Input 
Applesoft treats ? 
as PRINT 


Wipes screen Window 


utility program, simply BRUN it 
from disc after booting DOS. 
Better still, BRUN it in your 
HELLO program. This program 
can be temporarily discon- 
nected by a RESET or a CALL 
38164. When BRUN from disk 
this program will be located in 
memory just below DOS at 
starting address $9500 (hex). It 
also protects itself from being 
trampled upon by Applesoft by 
resetting HIMEM. 

This program will work on an 
Apple II plus with DOS 3.3, an 
Apple work-a-like (provided it is 
sufficiently alike) or an Apple Ile 


_ in the 40 column mode. It is in- 


compatible with the Apple Ile 80 
column firmware which uses 
many of the control characters 
to provide special 80 column 
functions. 


Derek Chan 
Hawker ACT 


FISOO, 


S00- 
9508- 
9S10= % 
9518- 
9S20- 
9828~- 26 
95 20= 
9538- 2 
95 40- 
9548- 
9550- 
9558- 
9560- 
956a- 
9E70—- ES 
9578- 
9E30- 
9588- 
9S590- 
9598- 
9SA0- 
9SAB- 
9SBO- 
9SBRe- 
95C0- 
95CB- 
95DO-— D 
95D8- 
9SEO- 
9SEa- 
9SFO- 


95Fa- D4 C1 CC oC 


CATALOG INTERRUPT 


10 REM 

20 REM CATALOGUE INTERRUPT BY 
30 REM D.S.YAN, 1984 

40 REM 


50 REM He KKK KK KKK KKK IK KK KKK KIKI KKK IK IK IKK KKK KKK KKK KEKE KKK KEK KK KK KK KKKK KK KEKE 


60 REM * Change DOS to return to BASIC after printing 18 lines of catalog * 
90 REM KK KK KKK KK IK KK KK KK KKK KKK KK KKK K KKK KKK IK KKK KKK KKK KKK KKK KKK KEKKKKKKKKKKKE 


95 REM 
100 POKE 44601,76: POKE 44602,127: POKE 44603,179 
110 REM 


120 REM KK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKEKKEKKKEKKKKK KK KE 


130 REM * Change DOS to jump to $318 on end of catalog * 
150 REM KKK KKK KKK KKK KKK KKK KKK KKK KE KKK KEKE KEKKKKEKKKEKKKEKKKK 


160 REM 

170 POKE 44589,24: POKE 44590,3 

180 REM 

190 REM KRKKKHAKKACHKEARAEKEREEREKRER AREER EKER ERE ERE EERE RE RERERE EERER EERE EK 
200 REM * Set up code at $310 to store stack pointer at $B39B then enter * 
230 REM * catalog routine at $AE25 * 
250 REM KOK KK KKK IK KK KKK IK KK IK KK KK KKK KK KK KKK KKK KKK KKK KK KK KKKKKKKKKKKKKK KK KKK 
260 REM 

270 FOR I = 784 TO 791: READ J: POKE I,J: NEXT 

280 REM 


290 REM KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KEK KKEKKKKKKKKEK 


300 REM * Set up code at $318 to clear flag at end of directory * 
330 REM KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK KKEKKEKKKKKKKKKKKKKKK 


340 REM 

350 FOR I = 792 TO 800: READ J: POKE I,J: NEXT 
355 HOME 

360 D$ = CHR$ (4): REM <CTRL-D> 

370 REM 


380 REM 4 I kK 


390 REM * Print first catalog page * 
400 REM 2 I Ik Ik 


410 REM 
420 PRINT D$;"CATALOG" 
430 REM 


440 REM RII IK kk kk 


450 REM * Print instructions on screen * 

470 REM KEKE KKK KKK KKK KKK KK KKKEKKKKKKKKEKEK 

480 REM 

490 VTAB 1: HTAB 1: INVERSE : PRINT " <- UP / -> DOWN / <RETURN> 
NEXT PAGE": NORMAL 

500 VTAB 24: INVERSE : PRINT "<D>DELETE<U>UNLOCK<L>»LOCK<R>RUN<O>LOAD" 
;: NORMAL 

502 REM 

504 REM KK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKEKKK KKK KKK 


505 REM * Reduce TEXT window by one line, top and bottom * 
506 REM KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKKK KK KKK KK KKK 
507 REM 

510 POKE 34,1: POKE 35,23 

520 CD = 5: HTAB 8 

530 IF CD < 2 THEN CD = CD + 1: GOTO 550 

540 IF CD > 23 THEN CD = CD - 1 

550 VTAB (CD) 

560 GET CU$ 


580 REM kkk KR KKK Kk kkk kkk 


590 REM * Move cursor * 
600 REM kk kk kk kkk kk kk kk 


CD - 1: GOTO 530 


620 IF ASC (CU$) = 08 THEN CD 
= CD + 1: GOTO 530 


630 IF ASC (CU$) 21 THEN CD 


650 REM 1 IO I III I IO I I kk 


660 REM * GOTO next catalog page on <RETURN> * 
680 REM RRR RI I IO ROR I IR I Rk ke 


690 REM 
700 IF ASC (CU$) = 13 THEN 1120 
710 REM 


T20 REM 8 RI OR OR I ke 


730 REM * Exit programme on <ESC> * 
740 REM KKK KKK KK KKK KK KKK KK KKK KKKKKK 


760 IF ASC (CU$) = 27 THEN 1350 
770 IF ASC (CU$) < > 68 AND ASC (CU$) < > 76 AND ASC (CU$) 

< > 82 AND ASC (CU$) ¢ > 85 AND ASC (CU$) < > 79 THEN 560 
780 GOSUB 940 


790 
800 
810 
820 
830 
840 
850 
853 
854 
855 
857 
858 
859 
860 


870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


1000 


1010 
1020 


1030 
1040 


1050 
1060 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


REM 
REM 
REM 
REM 
REM 
PK = 
PK = 
REM 
REM 
REM 
REM 
REM 
REM 
IF 
= 16 
PK$ 


KAEKKKKKKKKKKKKKKKKKKKKKKKKKKE 


* Read filename from screen * 
KKKKKKKKKEKKKKKKKKKKKKKKKKKKEKK 


PK - 1:PK$ = 
PK + 1 


CHR$ ( PEEK (PK) ) 


KAKKKKKKKKKEKKEKKKKKKEKKEKEK EKER KKKKKEKKKKKKKKKKKKKKK KK KK KKK KKK 


* Check for five consecutive spaces on screen to indicate * 
* 


* end of filename 
KKK KKK IKK KKK KKK KIEKEKREKK KAKA KAKA Kaa KA KK AKA KK KR KK KR KR KR KKK AK 


PEEK (PK) = 160 AND PEEK (PK + 1) = 160 AND PEEK (PK + 2) 
0 AND PEEK (PK + 3) = 160 AND PEEK (PK + 4) = 160 THEN 980 
= PK$ + CHR$ ( PEEK (PK) ) 


GOTO 850 


REM 
REM 
REM 
REM 
REM 
IF 
IF 
IF 
FT = 
PRIN 


IF CU$ = 
CALL 


IF 
PRI 
IF 
IF 
PRI 


CD >» 0 AND CD < 9 THEN PK = 
CD >» 8 AND CD < 
CD >» 16 AND CD < 25 THEN PK = 


KAEKKKKKEKKKKKKEKKEKKEKKKKKKKKKKK KK KK KKK KKK KKK KKK KKK 


* Locate memory address of cursor screen position * 
KEKE KKKKKKKKKKKEKKKEKEKEKEKKKKKKKKKKKKKKKKKKRKRKKKKR KKK 


1031 + 128 * (CD - 1) 
1071 + 128 * (CD - 9) 
1111 + 128 * (CD - 17) 


17 THEN PK = 


PEEK (PK - 6): 
T D$ 


RETURN 


"D" THEN PRINT D$;"DELETE";PK$: VTAB CD: HTAB 1: 
- €68: VTAB CD: HTAB 8 

CU$ = "L" THEN PRINT D$;"LOCK";PK$: VTAB CD: HTAB 1: 
NT "*": VTAB CD: HTAB 8 

CU$ = "R" OR CU$ = "O" THEN 1040 

CU$ = "U" THEN PRINT D$;"UNLOCK";PK$: VTAB CD: HTAB 1: 
NT " "; VTAB (CD): HTAB 8 


GOTO 560 


IF 
: P 
GOT 
REM 
REM 
REM 
REM 
POK 
REM 
REM 
REM 
REM 
REM 
IF 
REM 
REM 
REM 
REM 
REM 
VTA 
CAL 
CD 
REM 
REM 
REM 
REM 
REM 
POK 
POK 
POK 


- 868: 
HTAB 8: 


HTAB 10: FLASH 
VTAB CD: GOTO 560 


FT = 212 THEN VTAB 2: HTAB 1: CALL 
RINT "FILE TYPE MISMATCH": NORMAL : 
O 1350 

FOI II IO IO IO IO IO IO IO IO IOI II IO IR IR IR IR I IK 


* Set up DOS to read next 21 catalog entries * 
KEKKKKKKKKKEKEKKKKKKEKKKKKKKKKEKKKEKKKKKKKKKKKKKEEK 


E 45981, 21 


KKKKK KK KKK KKK KK KKKK KKK KKK KKK KEK EK KR KKK KKEKKKEKKKEKKKKKKEKKKEKKKKEK 


* Check catalog end flag at $320 and exit if equal to zero * 
KKK KK KKK KEKE KKK KK KK KKK KKK KEKE KKEKKK KK KK KKK KKKKKKKKKKKKKKKKKKK 


PEEK (800) = 0 THEN 1350 


KEKKKKKEKEKKKKKKKKKKKKK KEK 


* GOTO routine at $310 * 
KKK KKKKKKKKKKKKKKKKKKKKEK 


B 23: 
L 784 
= 2S 


HTAB 1 


HTAB 8: GOTO 530 


KKKKKKKKKKKKEKKEKKKKKKKKKKKKKKK 


* Change DOS back to normal * 
KEKKKKKKKKKKEKKKKKKKKK KKK KKK 


E 44601,32: 
E 44589,127: 
E 34,0: 


POKE 44602,12: 
POKE 44590,179 
POKE 35,24 


POKE 44603,253 


HOME 


REM 
REM 
REM 
REM 
REM 
IF 
IF 
IF 
IF 
END 


DATA 


KKKKKKEKKKK KKK KKK KKK KK KK KKKEKKEKKKKKKKKKKKKKKKKK KK 


* RUN,BRUN,LOAD or BLOAD filename as selected * 
KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKK KEKE 


FT 
FT 
FT 
FT 


193 AND CU$ "R" THEN PRINT D$;"RUN";PK$ 
193 AND CU$ "O" THEN PRINT D$;"LOAD";PK$ 
194 AND CU$ = "R" THEN PRINT D$;"BRUN";PK$ 


194 THEN PRINT D$;"BLOAD";PK$ 


uw wu 
iouou 


186,142,155,179,32,37,174,96,169,0,141,32,3,76,;127,179,1 


Writing programs requiring re- 
trieval of files from a disk, | 
found it desirable to have the 
catalog of disk files displayed 
on the screen from within a 
BASIC program to assist the 
program user to enter the 
filename as it is stored on the 
disk. A more useful feature 
would be to have the displayed 
file selectable. 

The program is essentially in 
two parts. The first part handles 
the DOS alteration to display 
one ‘page’ of the catalog at a 
time (18-21 lines). The second 
part of the program manipulates 
the screen cursor and performs 
DOS commands on filenames 
present on the screen. 

The program listing contains 

a liberal sprinkling of REMark 
statements which summarise 
the workings of the program. 
These lines can be left out 
when typing in the program, as 
they are not referenced by any 
GOTO’s or GOSUB’s. A list of 
the main variables used are 
given in figure 1. 
Note: It is advisable when first 
running the program to use a 
backup copy of your disk and 
double check the expressions in 
the POKE statements. Indis- 
criminate poking around in DOS 
could produce disastrous re- 
sults. 


Denis Yan 
Ingleburn NSW 


5 DIM J 108) 


18 
26 


=) 


68 


7@ T = @:CH = 4: FOR CY = @ TO 22 


38 


96 BS = "RUN": 


198 


GOTO 366 

POKE 216.8 

FOR X = 1 TO 6: READ B&O kK): NEXT 

DATA LOAD, LOCK. UNLOCK, DELETE 
» RENAME, EXEC 

CHRS ¢4): PRINT 


TEXT : HOME ‘0% = 


DS"CATALOG":B = PEEK C37) - 
2: IF B > 22 THEN B= ce 
: GOSUB 260: IF © < > 166 THEN 
POKE P - 1.219: POKE P.T + 


193: POKE P + 1,221:T = T + 


1S = CY 
NEXT CV: VTAB 24:AS = "TYPE L 
ETTER TO RUN, OR —-_LOAD = 
1 LOCK =2 UNLOCK = 
3 DELETE = 4 = RENAME 
=5 EXEC =6 S75. GE 
Ne = 7 FLASH ~ CATALOG = 
@ PAIT SR kien 


HTAB 1: PRINT LEFTS 
MIDS CAS, zio¢+ 


LEFTS (A%.1):K = PEEK ¢ 


1 
t 


163243: IF Ko < 129 THEN FOR 


K = 1 TO 75: 


NEXT KK = 


tt 
“1 
™. 
' 
Ww 
4H 
px 
my 


? THEM 492 


IF K = 


uo 


THEM 888 


iF K > 9 THEN 98 


138 


146 


218 


on 
a 


HTAB &: CALL — Seg: 


IF K = 

@ THEN NEU 

PRINT "PRESS LETTER YOU WISH 
to % 

IF K = 4 THEN FLASH 

PRINT B$<K); > NORMAL 


BS = BSC K> 


ONERR GOTO 298 


CALL ~ 13: 


NORMAL : GET KS 
K= ASC (KS) - 48 

IF K < 17 ORK > T + 16 THEN 
PRINT CHR 


: HOME : CLEAR : 


64); "RUN HELLO" 


CH= 1:(V=5-T+K - 16: GOSUB 


260: IF C = 194 AND (BS * "R 
UN" OR BS = "LOAD") THEN BS = 
"BY + BE 
FOR CH = 6 TO 33: GOSUB 260: 
BS = BE + CHRS ¢C>: NEXT CH 
IF LEFTS ¢BS.6% = "RENAME 
" THEN 296 
VTAB PEEK ¢37) + 1: HTAB 1: 
CALL - S68: PRINT BS: PRINT 
0% i BS 
IF LEFT® (BS,.4> = "EXEC" THEN 
HOME « PRIHT Of: "MON C,1,0" 
GOTO 38 
INT ¢C¥ “4 8):C2 = CY - 
(BP = 1824 + 128 * Ce + 
* C1 + CHC = PEER CP2: RETUR 
FOR CH = & TQ 29: GOSUB 260: 
Bf = 6S + CHRS (C>: HEXT CH 


: HTAB i: CALL - 863: PRINT 


BF: PRINT OF:E8: COTO 2a 


KTAG 1: VIAB 23: PRINT "ORIG 


iMAL "5 MIDS CBS. 7 >: 


YTB PEEK. 


(372 WIAB 12 TALL - a6e: HTSE 466 PRINT - PRINT “K - EXIT TO @ 


1: IMPUT "HEM FILENAME 9 "oH Rit MEH" 


ES: PRINT CHR <43;B%: CHR 47@ GET AS: PRINT 
(44);NE®: GOTO 30 e2 iF Ag = "1" THEN Pe 2°": GOTO 'LULLO 

290 POKE 216,@:ERR = FEEK C222) rae } 
: IF LEFT@ (B#.6) = "DELETE 475 IF A€ = "S" THEN 630 'ULLO 
" THEN 346 409 i= AS = "4" THEN 626 | 

3@@ IF ERR = 19 THEN YTAB 23: PRIHT 499 IF A = "X" THEN RUN Aeon ied halt includes two new 
"FILE LOCKED: ¢COONTINUE OF So0 IF AG < » “E" THEM 400 1. The ‘Flash Catalog’ routine 

from the Apple DOS (3.3) 

CADBORT ": Si@ HOME : INVERSE © PRINT "STAR Manual, which displays hidden 


control characters in file names 
as flashing letters* 
2. The capability to create 


316 GET H% TUP FILE GENERATOR”: HORMAL 


320 IF NS = "C" THEN PRINT cHRS : PRINT and use Exec files, and to set 
up a series of commands to be 

C4); "UNLOCK"; MIDS CB$,7>° PRINT 2g GOSLB 469 executed automatically on 

| : Start-up. 

CHRS (¢4);B85","iNE% Su@ PRIHT :F$ = "STARTUP FILE": These facilities may be oper- 

ated by options 7 (Sys Gen) 

338 GOTO 3¢ = 4 and 8 (Flash Catalog) on the 
menu; i.e: the message that 

340 IF ERR = 1G THEH HTAR 1: VTA LHEUT J#o%o: IF Jg¢k> = "" THEH scrolls around at the bottom of 
the screen. Files may be exe- 

23: PRINT "FILE LOCKED: (C90 S7e cuted by using option 6 (Exec). 


338 GOTO 38 . 24+ i: TF 4 4 99 THEM 346 

266 ONERR GOTO 392 

370 PRINT CHR® (4); "EXEC STARTU PRINT C#:"GFPEN "-F%° PRINT DB [> 
P FILE" @: "CELETE ":F# 

388 END PRIMT O€:°GRPEH ":F$: PRIMT 0 

398 GOTO 28 @; "WRITE "FS 

400 HOME = INVERSE =: PRINT "SYST FOR J = 8 TO X! PRINT 80 >: 
EM GENERATOR" NMEMT 

41@ PRINT CHR ¢ 7? PRINT G8; °CUGSE "Fe 

420 NORMAL : PRINT «© PRINT "1 ~ PRINT = PRINT "DOME. PRESS 
GENERATE NEW HELLO PROGRAM” RY KEY TO COHTINUE..."2: GE 

430 PRINT = PRINT "2 - GENERATE A&: GGT 486 | 
STARTUP FILE" PRIBT © FRINT 

440 PRINT = PRINT "3 ~ INMITIALIS THPOT "WHAT FILENAME To" Fe 
E OISK" IF WAL CFE) < > @ OR FE = 

450 PRINT =: PRINT "4 - GENERATE "" THEN PRINT CWRE C7O"ILL 


NTINUE OR CA BORT ":: GET Nt 


( TF N& = "C" THEN PRINT Dt 


iD@; "UNLOCK": MIDS CES.7>: PRINT 


O$;B8%: GOTG 38 


EYEC FILE" 


| ad 
nl 
C2 
a 
r 


CHR (2) AND X > 
@ THEN X = 4 - i: PRINT Utes 
y: PRINT "ENTER FROM HERE ON 


WAROS": rrRIHT « GOTO 546 


for the uninitiated, control 
characters can be put into file 
names as a sort of password; 
they can be extremely annoy- 
ing if you forget what or where 
they are. 
Andrew Maizels 
Mt. Colah NSW 
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'ULLO ‘ULLO 


[> GAL FILENAME": PRINT = COT: 


OME 


PRINT "ENTER THE STATEMENTS 


YOU WISH TO BE EXECUTED 


PRESS RETURN BY ITSELF WH 


H YOU HAVE FINISHED. Se 


TRL-B <RETURN? 79 CHAHGE 7 


UR PREVIOUS ENTRY” 


688 RETURN 


69@ HOME © FRINT CHRE Cfo: it 


"INSERT CISK TO BE 


EO. THEN PRESS RETURH.. 


";25 


PRIHT «© PRINT © LHPUT 


WEE yr 
Heth y 


FILENAME OO ‘(CU Wisd TO SE 


AGCUTECGH STARTUP 7 "GFS 


ri@ IF YAL CFB < THEM 


CHRS (7a; "F 
SOTO 7H 


715 PRINT : INPUT "SHAT VOLUME 


UMBER 00 ‘(OU WANT 7 "CF 


ry Me aOR oY pa 


PRIHT = PRINT © THPuT "“Giise 


73@ PRINT DSi"IMIT "SFEI "EA 


PRINT 


"DOO VOU WANT 


OR tet Te 
COPY GF THiS PROGRAM OM 


GET .f- If 2 


INITIALIS 


E 
c: 


0 


Fond 


PRINT 


HY 


-, 


1, 


708 


736 


"Hi" THEN 468 


HOME : INVERSE PRINT “GCME 


7) 
1 


GREETINES FROG 


A) 
a 
e! 


HORMAL 


IF F& = '" THEN FRINT : INPUT 

"WHAT FILENAME 7": FS 
INT Oi "SAVE 

IT UPEESS 


PRINT + PRE 3 ANY KEY 


Td RETURH...":: GET AS: GOTO 


READ 


281i,141,246.2 281, 1 


249, 17,201,126, 144.1 


DATA 53, 85,233, 64, 76,243 
CATR 253,76,248,2 3 


i = 769 TO 768 + 2? 


POKE I,V: NEXT I 


TATALOG GMST 


PLES * READY. PRINT PRIHT 
PRESS AMY KEY TO CONTINGE.. 


tr . Ser atte tere at Meese 
3 GET AR’ GOTO ge 


APPLE SPACE WAR 


This is basically a Space Invad- 
ers type of game, with both 
player and aliens using laser 
weapons rather than missiles. 
The player has only one life, but 
starts with 100 energy points 
which decrease when he fires 
at, or is hit by, aliens. 

It is possible to earn a score 
of 200, and 20 energy points, 
by hitting the strongest alien, 
but that being can inflict up to 
105 points of damage on you! 

The program includes instruc- 
tions for playing, which may be 


chosen from the startup menu, 
and has two special features: 

1 — The top fifteen scores, 
and the players names, are 
stored permanently on disk. 

2 —A “Demo” mode, in which 
the computer plays both sides. 
If left unattended, the program 
will automatically enter this 
mode returning to the menu 
after each game to give a 
human a chance (if one is pre- 
sent). The computers top score 
is 180. 

The game normally starts 
with one alien, with more (up to 


20) appearing as the game 
progresses. The starting 
number may be altered by 
changing the value given to NT 
in line 490. | 
If you experience problems 
with the disk file, try changing 
line 1190 to read: 1190 PRINT 
D$;D$;“OPEN”;F$. On the sub- 
ject of the disk file, use the pro- 
gram “Hiscore Creator” to set 
up the file before your first 
game (or to erase the high 
score table later). 
Andrew Maizels 
Mt. Colah NSW 
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7:00 O1 
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OF A0- 
OF A3- 
OF A6- 
OF A9~ 
OF AC- 
OF AE - 
OF EA- 
OF E3- 
OF ES- 
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OF EE 
OF ED- 
OFCO- 
OFC1- 
OF C3~ 
OF CS- 
OF C4 
OF C8 
OF CA 
OFCD- 
OF DO- 
OF D2- 
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00 
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SORTS 


APPL conn RRAYS! 


BS 1 oe 
LDA $1050 
STA $104A 
L.DA $1051 
STA $1046 
L.DX #902 
STX SOF O 
L.DX #3 A 
L.DY #903 
INC $104A 
LDA $1044 
ENE: $0FCO 
INC $€104E 
DEY 

CFY #600 
ENE: SOFES 
DEX 

CF X 

ENI:. 

DEC 

LDA 

ENE 

LDA #600 
STA $1062 
JMF $1064 
BRK 

BERK 

ERK 

ERK 

LDX #400 
LDA $1044»X 
JSK $F DED 
INX 

CFX #306 
EINE: SOFEO _ 
RTS 

BRK 

ERK 

ERK 

ERIK 

cea 4 

ERK 

BERK 

BRK 

ERK 

eRK 

LDA $465 
STA $1001 
LDA $46C 
STA $1002 
LDA 1240 
CMF #$4E 
BEQ $101C 
INC $1001 
LDA $1001 
BNE $1000 
INC $1002 


NEW 


‘ea Ab. aA: Lots ber fig g 


GET Apress ror Nb (569) 


sGgF x 3 ( 2 AFA x3 

Me. 2x BIG 2S). 

The aclolrres for 7 
N & (566) plorzeol on Bn. Pr -1D4 


Furl “Ww” Case ae) apbhithe. td 
Mam off NE pOumag array 
Shoat poirol fafors b6000, 


1012- AD 02 10 - LOA $1002 Aroanrch Ce 229 PCL hb Og. SUPSORT is an assembly sort 


1015- C9 40 CMF #660 


1017- FO C7 FEQ  $0FEO which sorts 500 or less records. 
1819- Bo ES ae $1000 It will sort 500 disordered re- 
101C- Az 00 LDX #800 Ano Nf f, Ee POO cords in about 30 seconds. (It 
ie te re ae will sort a reverse ordered list in > 
Paoac Bua BE’ o4iboe further 7 plored Te ie gt ah half that time.) , 
1026- EE 02 10 INC | $1002 roaram th llow- 
1029- £8 INX of NEO). Kone Rot mas = oe does the follo 
102A- £0 07 CFX #807 - _- ing:- 1. Finds the addresses for 
eee Oe ene store ( Cn B/D IP — Gs | the lengths and pointers of an 
102E- AD 02 10 LDA $1002 

1031- 8D 5110 STA 61051 array called N$(501). 

1034- AD 01 10 LDA $1001 2. Then runs a ‘shellsort’ type 


eee ry ae ne ae rae le zerrol ol aololress for sort. It compares items 251 
103D- 00 ERK ie tr0 of ponrol apart (swaps if necessary), then 
eeoe oe ping Asnrgth anak items 117,53,232,7,3,1 apart on 


103F- 00 ERK 4 

1040- 00 ERK tem NEO 00). later runs through the list. 

tie ae ope 3. If only, say, 200 records are 

1043-00 ERK oy pees eesees being sorted, it still runs through 

Ways) AE-OP Gr (ieee earcey a of WB(0d) hung this sequence. As Applesoft 

104e- iF 279 Wlols aololred4 sets all arrays to zero at the 

ieaee. a Bei start, this does not matter. 

104D- 00 ERK : By no means is this the ulti- 

sone 00 PRK hngth £ pourtird for NO). mate sort for this type of sort. 

1050- 40 oy adhlrrr of The times could be improved by 
Si- 12 22° : . 

fjea. ee ss Gap telnvern Lemo bug at least a factor of two (I be- 

1053- 75 35 ADC $35 +X Ae. lieve) if the ‘Bubblesort’ part at 

1055- 17 29 Goee prow 25/9 ati 

Gee. oo ee the end ran in two directions, 

1057- 03 229 a ture and only checked the unsorted 

tee. Ue DRA (6400 “) Bolotrcad for ak AO part of the array. 

105E- 3115 AND ($15) +1S etawe hecng Cow peorr rt ‘SORTEM ’ is a program that 

tile ths aay calls ‘SUPASORT’ to sort its 

105F- 00 ERK | array. It dimensions an array 

ae: an sven flog N$(501), then loads records 

10462- 00 ERK GET ADDRESSES 

1043- 00 ERK j ns Pe 

10464- AD SO 10 LDA $1050 Aew0 ; 

1067- 8D 59 10 STA $1059 /s7__Twe 

106A- 8D SE 10 STA $1056 

106D- AD 51 10 LDA = $1051 Ke gop ae oe a 

1070- 8D SA 10 STA § 105A 

1073- 8D SC 10 STA $105C $id52 (the ee to £5), 

1076- AE 52 10 LDX $1052 aol oUrshees Lar 

1079- Ao 03 LOY #803 ger the 

107B- EE SE 10 INC $1056 lwo 

107E- AD S& 10 LDA = $105 the Langthe of the frat 

1081- D0 03 BNE $1084 , plo rs’) 

1083- EE SC 10 INC $105C Mowe le be COW) : d 

1086- 88 DEY ced -/PSC. 

1087- CO 00 CFY #800 in 1859 -/b5A or ip 

1089- DO FO ENE $1076 
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ORTS 


[> into this array from disc. It then 


108C- 
108E-- 
1090- 
1092- 
1095- 
1098- 
1099- 
109A- 
109E- 
109E- 
10A1- 
10A3- 
10A6~- 
10A9- 
LOAE-- 
10AE- 
1OE0- 
10E3- 
10E4~ 
LOE9~ 
LOEC-- 
LOEF- 
1002- 
10CS~- 
10C8- 
LOCE- 
1OCE-: 
LOCK = 
10D1- 
L003-- 
100é6- 
10D09-- 
10DC-- 
LODF- 
LOE 1- 
10E4- 
10E7- 
1LOEA- 
LOED- 
LOEE- 
LOFO- 
LOF2~ 
10FS~ 
10F4~ 
10F7- 
1OF 8- 
10F9- 
10FA~ 
1OF E-- 
10FC- 
10FD~ 
1OFE-: 
LOFF- 
1100- 
1101- 
1102- 
1103- 
1104- 
1105- 
1106- 
1107~- 
1108- 
1109- 
110A- 
1106- 
110C= 


calls ‘SUPASORT’ which sorts 
the records, and ‘SORTEM’ 
puts them back on disc. (It also 
displays the sorted records first, 
but this is of course unneces- 
Sary). 

‘C$RITE’ takes ten records 
and writes them to disc 50 
times; creating a text file of 500 
disordered names. 

‘C$NANNUM'’ places 500 re- 
cords onto disc, and ‘RESORT’ 


EO 00 CPX #$00 

DO E9 ENE $1079 
A9 00 LDA #900 

8D 40 10 STA $1060 
4C 9E 10 JMF $1096 
00 ERK 

00 ERK 

00 ERK 

AD SC 10 LDA $105C 
CD 4E 10 CMF $1046 
DO OE ENE: $10AE 
AD SE 10 LDA $1055 
CD 4A 10 CMF $1044 
DO 03 ENE $1i0AE 
4c 90 11 JME $1190 
A2 00 LDX #900 

ED SS? 10 L.DA $1059 xX 
9D D4 10 STA $10D49xX 
9D E2 10 STA $10E25xX 
9D 73 il STA $11739xX 
9D 7A 11 STA $117A»X 
ED SE 10 LDA $lOSE»xX 
9D DA 10 STA $10DA»sX 
9D EB 10 STA $10E8»xX 
9D 77 11 STA S$1177»9X 
9D 7E 11 STA $1 L7E yx 
E8 INX 

EO 02 CFX #302 

dO DD ENE: $100 
AD 40 12 LDA $1240 
8D SD 10 STA $105) 
AD 31 415 L.DA 

8D SE 10 STA 

AZ 01 1..DX : 

ED 40 12 L.DA $1240 9X 
9D 23 11 STA $11239X 
ED 31 15 L.DA $15319xX 
9D 24 11 STA $112469X 
ES IINX 

EO 03 CFX #403 

DO EF ENE. $10E1 
4C a7 di JME $1117 
00 BRE 

00 ERK 

00 BRK 

U0 ERK 

00 ERK 

00 ERK 

00 ERIK 

00 BRK 

00 ERK 

00 BRK 

00 ERK 

00 ERK 

00 ERK 

00 ERK 

00 ERK 

00 BERK 

00 ERK 

00 BRK 

00 ERK 

00 ERK 

00 ERK 

00 ERK 

00 BERK 

00 BRK 


is an example cf a program 
which tags the records as they 
are read off the disc. 

‘RESORT ' loads records from 
the disc in reverse order, to see 
how the sort goes with a re- 
verse order list. ‘SSORT’ is an 
attempt to use the ‘SUPSORT'’ 
with 1000 records. Larger gaps 
are poked into the ‘gap’ part of 
the assembly program. 1000 re- 
cords take about 3 minutes to 
sort. 

C. Benson 
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Cf fe 
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110F- 
1110- 
1111- 
1112- 
1113- 
1114- 
1115- 
1116- 
1117- 
111A- 
111C- 
1iiF- 
1121- 
1123- 
1126- 
1129- 
112E- 
112D- 
112F- 
1130- 
1133- 
1135~- 
1138- 
113A~- 
113C~- 
113E- 
1140- 
1143- 
1146- 
1148- 
1146 - 
114E- 
1151- 
1153- 
1154- 
1157- 
1159- 
1156- 
115E- 
1L15F- 
11460- 
1161- 
11462- 
1143- 
11464- 
11465- 
114646- 
11467- 
11468- 
11469- 
116A- 
116E- 
1146C- 
114D- 
1146E- 
1146F- 
1170- 
1172- 
1175- 
1176- 
1179- 
117C- 
117D- 
1180- 
11981- 
11823- 
1185- 
1187- 
118A- 
118D- 
L1iBE- 
118F- 
1190- 
1193- 
1193- 
1198- 
L1I9E- 
119D- 
L1i9F - 
114A1- 
L1A4- 
11A7- 
11A8-- 
11A9~- 
1L1AA- 
LIAE- 
LIAC- 
Li AD- 
LIAE- 
LLAF - 
L1E60- 
LIE 
LLEZ- 
LIES - 
L1E7 - 
LIEA 
LIBE- 
LIEC- 
LIED- 


Ab 
FO 
4t: 
40 
00 
00 
00 


45) 
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54 


10 


10 


00 
92 


10 


10 


10 


1a 
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BRK 
BRK 
BRK 
BRK 
ERK 
BRK 
ERK 
BRK 
ERK 
BERK 
LDA 
BEQ 
L.DA 
BEQ 
LOX 
LDA 
CMF 
BEQ 
BRL 
EMI 
INX 
CFX 
BEQ 
CF X 
BEQ 
CFX 
BNE 
LDX 
INC 
LDA 
BENE 
INC 
INC 
L.DA 
ENE. 
INC 
INX 
CFX 
BENE 
JMF 
BRK 
ERK 
ERK 
BRK 
ERK 
ERK 
BRK 
ERK 
ERK 
BRK 
ERK 
ERK 
BRK 
BERK 
ERK 
BRK 
ERK 
BERK 
LDX 
LDA 
FHA 
LDA 
STA 
PLA 
STA 
INX 
CFX 
ENE 
L.DA 
STA 
JME 
BRS 
BRK 
BRIE 
L.DA 
IS NE 
INC 
L.DA 
CME 
BENE 
L.DA 
STA 
JME 
ERK 
BRK 
BRK 
BRI 
BRK 
ERE 
ERK 
ERIK 
ERK 
BRA 
ERK 
LDA 
BE IY 
JME 
Bey ES 
Eb. 
ERK 
BRS 


SORT 

oo 
ey allel arty Shy quiet meal 
siiz0}  (4t tength pire, swar 
qebdh ak Aol ronwee , “—s 
$9250 | Attn at a Line. IL 2nol. 
Amon, “swAP. 


$112F 
$1170 
$113E. 


#300 
$1240 +X 


$1531>X 
$1240+X 


$1531+°X 


#6055 
$1li72 
#505 
$1040 
$1A3E 


Mom. 


RCI RAL 
of / 2 (#19622 #95). 


PINGS 
LAR 


$1077 

$1077 @ Ne. Frexermenrt £077 Co yh 
$355 

$1144 aww hew 


FEN" 


$1042 W Yeo. 


$1044 


ates sale ae tit [Am 
106d ane thamagh 44 agar 
bLGS4 


R) Ves F 


a 
J 
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PRINT 


CSRITE 


"THIS PROGRAM FLACES A TOTAL OF 500 NAMES ON DISC; 


2G 1 ade’ Sa 


TEN NAMES IN STRICT DISORDER" 


FRINT ¢ 


FRINT 


DIM A$¥¢10%50) 


FRINT 


"LOADING NAMES TO ARRAY" 


FOR To = 1 TO 10 
ON I GOTO $10°520+530+5402550 54609570 %580 159074600 


FOR 


J = 1 TO SO 


A$(TyJ)2 = Et 
FRINT Ehs " "3 


NEXT J 
NEXT I 

PRINT " , 
Ds CHR (4) 


PRINT D&s "OREN NAMI" 


PRINT 
FOR 
FOR I 


D$s "WRITE NAMI" 
Jo= 1 TO S50 


1 TO 10 


FRINT Af T oJ) 
NEXT 1 
NEXT J 


FRINT 
FRINT 


eo 
D$s "CLOSE NAMI" 


GOTO 690 


Es $ 


= "FPESTERJOHN" 


GOTO &0 


Es $ 


= "ALBERTSON" 


GOTO SO 


Es $ 


= "§ JOHNSMITH " 


GOTO SO 


E 


= “JASONCLARK * 


GOTO So 


ES 


= "THORERTCKS" 


GOTO So 


ES 


= " JONLOVEDAY " 


GOTO So 


ES 


= "MACMATING * 


GOTO & 


EVs 


= "LESLIECARE " 


GOTO So 


Ei: 


= "“WORKLESS " 


GOTO SO 


Eis 


= "ALECKSON" 


GOTO So 
END 


J 
| a 
CSN AMNUPM 2GOW11AY' SS 


] 
2 PRINT "THIS PROGRAM PLACES 500 NAMES ON DISC IN STRICT DISORDER WITH AN 
ATTACHED 'STRING NUMBER' WITH EACH ONE" 
7 FRINT ¢ FRINT 
10 DIM A$(10%50) 
15 FRINT "LOADING NAMES TO ARRAY" 
20 FOR I = 1 TO 10 
30 ON I GOTO 510°520+530°540 2550 15607570580 75907600 
50 FOR J = 1 TO 50 
60 AS(IsJ) = BS 
65 PRINT E&Ss" "3 
70 NEXT J 
80 NEXT I 
81 D$® = CHR (4) 
85 NS = "NAMNUM" 
88 FRINT " 
90 PRINT Ds "OFEN"SNS 
95 PRINT D$s"WRITE*SNS 
97 FRINT S00 
100 FOR J = 1 TO 50 
105 FOR I = 1 TO 10 
110 FRINT A$(I»9JI) 
140 PRINT STR# (CK) 
150 K = K + 1 
160 NEXT I 
170 NEXT J 
210 FRINT D#s"CLOSE"sN$ 
340 GOTO 690 
510 &% = "PESTERJOHN" 
515 GOTO S50 
520 &$ = *“ALBERTSON" 
S25 GOTO 50 
530 &$ = *JOHNSMITH" 
535 GOTO 50 
540 && = *JASONCLARK" 
S45 GOTO 50 . 
550 &$ = *THORERICKS" 
SS GOTO 50 
0 &$ = *"JONLOVEDAY" 
8 GOTO 50 
570 && = "MACMATINS" 
575 GoTo 50 
580 &$ = "*LESLIECARE" 
385 GOTO 50 
590 &$ = *WORKLESS" 
595 GOTO S50 
600 && = "ALECKSON" 
405 GOTO 59 
490 END 


RESORT 264/1147'83 ; Resort 
1 
7 


5 LOMEM! 4444 

10 DIM N$(501)/R$(501) 

15 PRINT "THIS PROGRAM IS TO SORT NAMES WITH RELATED STRING DATA" 

146 FRINT ¢ PRINT $ PRINT 

20 D& = CHR (4) 

25 N$ = *NAMNUM* 

30 PRINT D$;"BLOAD SUFSORT* 

40 PRINT D$3"OPEN"3NS 

50 PRINT D$;"READ"3N$ 

60 INPUT A1 

70 Al = Al ~ 1 Ase owe 
neawt4 pu 

80 FOR I = 0 TO Al Reaol 

90 INPUT N$(I) 

91 IF I > 9 THEN 94 aclo/ 3 Aprrr cake | 


92 S$ = "00" + STR (T) 


LJ 


93 GOTO 98 Mawr OD) 
94 IF I = 99 THEN 97 


95 S$ = "0" + STRS (ID Prewe ¢f2 
96 GOTO 98 ‘ 

97 S$ = STR (ID 

98 N$(I) = N&(I) + SS antvra GFF 
99 INPUT R$(I) 

100 NEXT I 

120 PRINT D$3"CLOSE"3N$ ; 37 
122 PRINT "I "31 rows + 
125 PRINT "SORTING" 

130 CALL 4086 

135 FOR K = 0 TO Al 

170 PRINT N$(K)3" 53 

180 NEXT K 

182 FRINT $ PRINT 

185 D$ = CHRS (4) 

200 FRINT D$3"OFEN"INS 

202 PRINT DSs"WRITE"SNS 

205 AZ = AL + 1 

210 PRINT A2 

220 FOR I = 0 TO Al 


222 L = LEN (NSLI)) 

223 LI =L-2 

224L2=L- 3 oe 
225 L2% = MID$ (N$(I) L173) Toke wokr of 
226 N$(I) = MIDS (N$(I)e19L2) 

228 L2 = VAL (L246) 


230 FRINT N$(T) 
232 FRINT R¢(L2) 


235 NEXT 
240 PRINT D$3"CLOSE"3N$ 
245 PRINT " ‘ 


END 


SHOOTOUT 


Shootout is a game requiring 
fast reflexes and keen eyesight. 
You are the fastest gunslinger 
in the west, and have been 
challenged by the Mexican gun- 
fighter, El Ppa (amazing what 
some people’s names_ spelt 
backwards translate as). His 
face (he don’t look real mean, 
but he’s quick on the trigger) 
appears on the screen. After a 
short pause the word DRAW 
also appears, with a beep if the 
easy game has been selected, 
without it the hard game is indi- 
cated. 

When this happens press any 
key to fire. If you were quick 
enough, you win that shootout. 
If not, well, you get another 
chance (you can have up to 10 
chances) unless that was the 
last battle. Your scores and his 
are totalled and the winner is 
announced. 

El Ppa can be slowed down 
by increasing the number in line 
230 or sped up by decreasing 
it. 


Tony Humfrey 
Parkes NSW 


O ONERR GOTO 1 


10 HOME :GAMES = O:SHOOT = O:DEAD = O 

.20 VTAB 1 

30 FOR A = 1 TO 40: PRINT “_"$: NEXT 

40 VTAB 11: FOR A = 1 TO 40: PRINT "."}: NEXT 

SO VTAB 3: HTAB 16: FLASH : PRINT "SHOOTOUT": NORMAL : VTAB 5S: PRINT “* 
YOU ARE THE FASTEST GUNSLINGER IN THE WEST(OR EAST,FOR THAT MATTER)A 
ND YOU HAVE BEEN CHALLENGED BY THE MEXICAN GUN-FIGHTER EL PPA. "3 

60 PRINT "YOU HAVE TO BEAT HIM IN AGUNFIGHT OR LOSE YOR TITLE AS THE BES 
T GUNSLINGER!": VTAB 15: HTAB 14: INVERSE : PRINT "INSTRUCTIONS": NORMAL 
: PRINT : PRINT ° WHEN EL PPA DRAWS HIS GUN, YOU HAVE 1 SECOND IN W 
HICH TO DRAW YOUR OWN GUN BY PRESSING ANY KEY" 

70 PRINT "IF YOU BEAT HIM MORE THAN HALF THE TIMESYOU PLAY HIM, YOU WILL 
BE WERALDED AS THEWINNER": PRINT : INPUT "HOW MANY SHOOTOUTS(UP TO T 
EN)->"3;SHOOT: IF SHOOT > 10 THEN 70 

71 HOME : INPUT “HARD GAME (Y/N) "3; DS 

80 REM GEANHD 

90 C = INT ( RND (1) # 10) # 100 

100 HOME : INVERSE : VTAB 8: HTAB 18: PRINT " ": VTAB 8: HTAB 21: PRINT 

110 VTAB 10: HTAB 20: PRINT " “: VTAB 11: HTAB 19: PRINT ". ." 

420 VTAB 12: HTAB 17: PRINT " ": VTAB 12: HTAB 23: PRINT " " 

130 VTAB 13: HTAB 18: PRINT * . 

140 VTAB 6: NORMAL : HTAB 16: PRINT " "; FOR Vv = 7 TO 15: VTAB 
: HTAB 15: PRINT "I": VTAB V: HTAB 23: PRINT "I": NEXT V: VTAB 15: HTABJ 
26: PRINT ° * 

150 FOR A#=1T0C 

160 IF PEEK ( - 16384) > 127 THEN 310 

170 NEXT A 

180 Vv = INT ( RND (1) * 20) + 1 

190 H = INT ( RND (1) ¥ 36) + 1 

200 IF V > = 6 AND V <¢ = 16 THEN 180 

210 VTAB V: HTAB H 

215 IF LEFT® (D®%,1) = "Y" THEN INVERSE : PRINT "DRAW": NORMAL : GOTO 2 
30 

220 INVERSE : PRINT "DRAW": NORMAL: REM INSERT CTYRL-G INTO ''BRAW" 

230 FOR B = 1 TO 10 

240 IF PEEK ( - 16384) > 127 THEN 270 

250 NEXT B 

260 HOME : PRINT "BANG !' YOU’RE DEAD": DEAD = DEAD + 1: GET AS: GET AS: GOTO 
290 

270 FOR T = 1 TO 1500: NEXT T: HOME : PRINT "YOU GOT HIM! '!":GAMES = GAME 
S+1 

280 GET FS: GET FS 

290 FOR M = 1 TO 1500: NEXT : IF DEAD + GAMES = > SHOOT THEN 330 

300 GOTO 80 

310 FOR S = 1 TO 100:D = PEEK ( - 16336): NEXT S 

320 HOME : VTAB 12: INVERSE : PRINT “YOU TRIED TO CHEAT,BUT YOU DIDN’T W 
IN.": NORMAL : GET AS: GET S®: GOTO 80 

330 HOME : PRINT "HE WON “;DEAD;" GAMES: YOU WON ";GAMES;”" GAMES": FOR A = 
1 TO 1500: NEXT 

340 IF DEAD > GAMES THEN 380 

350 IF DEAD = GAMES THEN 400 

360 IF DEAD < GAMES THEN 410 

370 END 

380 HOME : VTAB 9: HTAB 17: PRINT “EL PPA": VTAB 10: HTAB 17: PRINT "L 

P": VTAB 11: HTAB 17: PRINT “P “P": VTAB 32: HTAB 17: PRINT "P 
L": VTAB 13: HTAB 17: PRINT "APP LE": VTAB 2: PRINT “WHO DO WE SUP 
PORT-WE SUPPORT THE ONLY-" 

390 GOTO 420 

400 HOME : PRINT “IT IS A TIE!WE DEMAND A REMATCH'": FOR A = 1 TO 1500: NEXT 
: GOTO 10 

410 HOME : PRINT " “: PRINT : PRINT 
* WE KNEW YOU COULD DO IT FOR US": 

420 FOR A = 1 TO 3000: NEXT : HOME : PRINT "ANOTHER GAME, PODNER(Y/N)->"3 
: INPUT Y®: IF LEFT® (Y®,1) = "Y" THEN GOTO 10 

430 END 


‘WORMS’ is a game where you, 
as a worm, must destroy your 
enemy by totally blocking him 
so that he is forced to hit either 
one of your segments, his seg- 
ments, the obstacles or the bor- 
der. Your ‘worm’ starts off in a 
random position on the right 
hand side of the screen and 
there is a short delay before the 
action starts — this is so that you 
can pick up where you are. 
Once the game starts you have 
to complete ten rounds to win. 

The game incorporates a fea- 
ture that allows you to change 
the controlling keys to suit your 
preference. The only key not al- 
lowed to be used in this way is 
the right arrow key. 

Before you can start this 
game you must first create the 
text file that’ “Worms’ uses. It is 


TEKT FILE 
by Michael Lee 
10 D&® = CHR (4) 


PPINT D®"OPEN HIGH SCORES" 
PPINT DS"WRITE HIGH SCORES" 


FOR Q@ = 1 TO 20 
PRINT "O": PRINT " 
NEXT Q 


PRINT D#"CLOSE HIGH SCORES* 


Now 


The "0" 


called ‘High Scores’. To do this, 
type in the text file creator and 
run it. The disk will whirl a few 
seconds and then stop. Now, 
type in the ‘Worms’ program 
and save. The program is now 
ready to run. 

| made the game on a black 
and white monitor and so | used 
colours that suited it. However, 
if you want to change the colour 
of the border and obstacles, the 
command is on line 50. The col- 
our of the computer worm is 
controlled by line 73 and your 
worm’s colour is controlled by 
line 225. You might want to 
change line 55 as well, but 
DON’T change the COLOR = 
0 on that line. 


Michael Lee 
Torrens ACT 


CREATOR 


on line SO is meant to be a ZERO. 


If this is not there the WORMS program will respond with an 


error. 
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1 TEXT : HOME : SPEED= 255 

2 REM INIT THE VARIABLES 

3 REM 

5 us = "T's DS = "G"SRS = "H"ILS = "F"s DIM C21): DIM C#(21) 
7 REM 

8 REM GOTO INSTRUCTIONS 


10 GOSUB 2060 
20 GOTO 2030 


40 X = 1:Y = INT ( RND (1) * 37 + 1):X1 = BEryL = INT ( RND (1) *& 37 + 1) 

41 A= 4:2 = 3 

45 VTAB 21: PRINT “YOU ARE ON LEVEL "G 

50 GR: COLOR= 15 

Si FOR @=17T70G 

S52 x2 = INT ( RND (1) * 26) + 7:Y2 = INT (¢ RND (1) % 40):Z22 = INT ( RND (1) 
# 40):0Z = INT ( RND (1) % 26) + 72:B2 = INT ( RND (1) # 26) + 7:C2 = INT ( 
RND (1) * 40): IF (Z2 < 2) OR (22 > 37) OR (Y¥2 < 2) OR (Y¥2 > 37) THEN GOTO 5 
2 

53) VLIN Y¥2,Z2 AT X2 

54 HLIN A2,B2 AT C2: NEXT 

55  VLIN 0,39 AT O: VLIN 0,39 AT 39: HLIN 0,39 AT O: HLIN 0,39 AT 39: COLOR= 5 
: PLOT X + 1,Y: COLOR= 2: PLOT X1 - 1,Y1: FOR @ = 1 TO 1000: WEXT @: COLOR= O: 
PLOT x # 1,Y: PLOT X1 - 1,Y1 

56 GOTO 70 

60 A = INT ( RND (1) # 4 + 1) 

70 T = INT ( RND (1) # 100 + 1): IF T < G THEN GOTO 60 

73 COLOR= 5 

75 IF A = 1 THEN Y = Y - 1 

80 IF A = 2 THEN Y = Y + 1 

85 M = PEEK ( - 16336) 

90 IF A = 3 THEN X = X - 1 

95 M = PEEK ( - 16336) 

100 IF A = 4 THEN X = xX + 1 

110 IF SCRN( X,Y) < > O THEN GOTO 1000 

120 PLOT x,Y 

122 REM 

125 REM GET THE DIRECTION KEYS (HUMAN) 

127 REM 

130 IF PEEK ( - 16384) > 127 THEN GET A® 

140 IF (A® = US) AND (Z < > 2) THEN Z = 1 

150 IF (A® = D®) AND (Z < »> 1) THEN Z = 2 

160 IF (A® = L®) AND (Z < > 4) THEN Z = 3 

170 IF (A® = R®) AND (Z < > 3) THEN Z = 4 

175 S = S$ + 10 + G: VTAB 22: PRINT "SCORE="S" * 

180 IF Z2 = 1 THEN Yi = Y1 - 1 

190 IF Z = 2 THEN Y1 = Y1 + 1 

200 IF Z = 3 THEN X1 = X1 - 1 

210 IF 2 = 4 THEN X1 = X1 + 1 

220 IF SCRN( X1,Y1) < >» O THEN :P = 1: GOTO 2000 

228 COLOR= 2 

230 PLOT X1,Y1 

240 M = PEEK ( - 16336) 

990 GOTO 70 

1000 IF A = 1 THEN Y = Y + 1 

1001 IF A = 2 THEN Y = Y - 1 

1002 IF A = 3 THEN X = xX + 1 

1005 IF A = 4 THEN X =X - 1 

1010 IF (A = 1) OR (A = 2) THEN GOTO 1030 

1020 IF (A = 3) OR (A = 4) THEN GOTO 1500 

1023 REM 

1025 REM CHECK TO SEE IF THE COMPUTER HAS HIT A WALL AND TO TURN THE WORM IF 
NEED BE 

1027 REM 

1030 B = SCRN( X - 1,Y):C = SCRN( X 4 1,Y) 

1040 IF (B = 0) AND (C = 0) THEN A = INT ( RND (1) * 2 + 3): GOTO 70 

1050 IF B = 0 THEN A = 3: GOTO 70 

1060 IF C = O THEN A = 4: GOTO 70 

1070 @aTO 2000 

1500 B = SCRN( X,Y - 1):C = SCRN( X,Y + 1) 

1510 IF (B = 0) AND (C = 0) THEN A = INT ( RND (1) # 2 + 1) 

1520 IF B = 0 THEN A = 1: GOTO 70 

1530 IF C = O THEN A = 2: GOTO 70 

1540 GCTO 2000 

1800 REM 

1900 REM IF ANY WORM GETS HIT THE PROGRAM COMES HERE. 

1905 EM 

2000 M = - 16336:mM = PEEK (M) + PEEK (mM) + PEEK (M) + PEEK (M) + PEEK (M 
) + PEEK (M) + PEEK (M) + PEEK (M) + PEEK (M) + PEEK (M) + PEEK (M) + P 

EEK (M) + PEEK (M): FOR @ = 1 TO 2500: NEXT 

2010 TEXT : HOME 

2020 IF P = 1 THEN GOTO 2050 

2022 REM 

2023 REM IF YOU HAVE BEATEN THE COMPUTER,COME HERE. 

2024 REM 

2025 IF G = 10 THEN INVERSE : PRINT "CONGRATULATIONS": PRINT : P 
RINT "YOU HAVE SUCESSFULLY DRIVEN AWAY ALL PREDITORS. YOUR SCORE IS "S: NORM 
AL : FOR @ = 1 TO S000: NEXT : GOTO 3000 

2029 INVERSE : PRINT “YOU HAVE WON": NORMAL 

2030 G = G + 1: PRINT : PRINT "YOU ARE NOW ON LEVEL "G: PRINT "WATCH OUT I’M G 
OING TO ATTACK!!!" 


2032 REM 

2035 REM IF YOU WON BUT NOT DONE TEN ROUNDS THEN REPEAT FROM HERE. 

2037 REM 

2040 FOR @ = 1 TO 2500: NEXT : HOME : GR : COLOR= 15: GOTO 40 

2042 REM 

2045 REM IF YOU LOSE YOUR GROUNDS COME HERE 

2047 .REM 

2050 PRINT "YOU HAVE LOST YOUR GROUNDS ON LEVEL "G: PRINT “YOUR SCORE IS "S: 
FOR @ #= 1 TO 1000: NEXT @ 

2051 W = 1: GOTO 3000 

2052 REM GOTO 3000 TO HALL OF FAME. 

2053 POKE - 16368,0 

2055 PRINT : INPUT "DO YOU WANT TO PLAY AGAIN?";AS: IF AS = "Y" THEN S = O:G 
= O:H1 = O:P = O: GOSUB 2230: GOTO 2030 

2056 PRINT "GOODBYE AND THANKS FOR THE LAND!!!" END 


203538 REM 
2060 REM INTRODUCTION 
2065 REM 


2070 HOME : VTAB 9: HTAB 18: INVERSE : PRINT "WORMS": NORMAL 

2080 HTAB 15: PRINT "PROGRAMED BY" 

2090 HTAB 135: PRINT "MICHAEL--LEE”" 

2100 PRINT : HTAB §8: PRINT " (9/6/83" 

2120 FOR @ = 1 TO 2000: NEXT 

2140 HOME : INVERSE : PRINT " WORMS " 

2145 NORMAL 

21350 RRINT : PRINT. “YOU ARE A WORM FIGHTING FOR POSSESION OFA PIECE OF FERTIL 
E LAND* 

2160 PRINT : PRINT “YOUR ENEMIES WILL TRY TO RUN YOU OUT OF IT AND YOU MUST S 
TOP THEM" 

2170 PRINT : PRINT "THE LONGER YOU STAY ALIVE THE MORE POINTS YOU GET,HO 
WEVER TO SUCCESSFULLY WIN THE GAME YOU MUST FIGHT THE ENEMY TEN TIMES" 

2180 PRINT : PRINT "AS YOU PROGRESS THE ENEMY WILL GET MORE INTELLIGENT AND T 
HE TERRAIN MORE CHALLENGING" 

2190 PRINT : FLASH : PRINT "GOOD LUCK": NORMAL 

2200 VTAB 22: PRINT "<<<<<<<PRESS-ANY-KEY-TO-CONTINUE>>>>>>>>" 

2210 IF PEEK ( - 16384) < 128 THEN GOTO 2210 

2220 POKE - 16368,0 

2230 HOME : INVERSE : PRINT "THESE ARE YOUR COMMANDS" 

2240 NORMAL : PRINT : PRINT "— “US"=UP" 

2250 PRINT : PRINT "— "D#"=DOWN" 

2260 PRINT : PRINT " "L®"=LEFT" 

2270 PRINT : PRINT " “R®"=RIGHT" m 

2280 PRINT : PRINT : INPUT "DO YOU WANT TO CHANGE THESE COMMANDS?";Q@®: VTAB 1 
2: PRINT "* ” 

2282 IF LEFTS (Q%,1) = "Y" THEN VTAB 3: HTAB 3: GET US: PRINT US: VTAB 5: H 
TAB 3: GET D®: PRINT DS: VTAB 7: HTAB 3: GET L®: PRINT L®: VTAB 9: HTAB 3: GET 
RS: PRINT R®: VTAB 12: INPUT "ARE THESE ALRIGHT?";Q@%: IF LEFT® (Q%,1) = "N" 

THEN 0% = "Y": GOTO 2282 
2300 VTAB 12: PRINT "€<<¢¢¢¢66<<¢¢<< PRESS ANY KEY>>>>>>>>>>>>>>"! VTAB 12: GET 
QS: PRINT Q@$: HOME : RETURN 


2310 REM 

2320 REM OPEN THE HIGH SCORE FILE AND READ IT. 
2330 REM 

3000 IF W< > 1 THEN S = S + 1000 

3010 AS® = CHRS (4) 


3020 PRINT AS"OPEN HIGH SCORES" 

3030 PRINT AS"READ HIGH SCORES" 

3090 FOR @ = 1 TO 20 

3050 INPUT C(Q) 

3060 INPUT C#(Q) 

39063 NEXT 

39070 PRINT A®"CLOSE HIGH SCORES":Z = O 

3071 REM CHECK TO SEE IF SCORE IS BEATEN 

3072 FOR @ = 1 TO 20: IF Z = 1 THEN GOTO 3075 

3073 IF S > = C(Q) THEN Z = 1:ML = @: FOR W = 20 TO @ STEP - 1:C(W + 1) = C 
(W):CS(W + 1) = CS$(W): NEXT W 

3075 NEXT Q@ 

3076 REM 

3077 REM IF YOU BEAT A HIGH SCORE THEN TYPE IN AND SAVE NAME. 

3078 REM 

3080 HOME : IF Z = 1 THEN PRINT "YOU HAVE BEATEN A HIGH SCORE PLEASE TYPEIN 
YOUR NAME << -<-<32 -- S23 os S68 ees5555e-6 "3; INPUT C®#(ML):C(ML) = S 

3100 REM 

3190 REM SORT NAMES AND PUSH THEM ALL DOWN IF SCORE IS BEATEN. ACTUALLY 3073 
IS THE REAL SORT. 

3150 REM 

3160 PRINT A®S"OPEN HIGH SCORES” 

3170 PRINT AS"WRITE HIGH SCORES" 

3180 FOR @ = 1 TO 20 

3190 PRINT C(Q) 

3200 PRINT C#$(Q) 

3210 NEXT 

3220 PRINT A®S"CLOSE HIGH SCORES” 

3230 W = O:J = O: HOME 

3240 PRINT "CEC 646 <¢ CH-A-L-L--OF--F-A-M-E>>>>>>>>>>" 

3250 VTAB 2: PRINT " NAMES SCORES" 

3260 FOR @ = 1 TO 20: PRINT Q") "C$(Q) 

3270 VTAB @ + 2: HTAB 27: PRINT C(Q@) 

3280 NEXT 

3290 POKE - 16368,0: PRINT "##HHHHHHHHHHHPRESS ANY KEYHHHHHHHHHH HHH” 
3300 IF PEEK ( - 16384) < 128 THEN GOTO 3300 

3310 GOTO 2053 


30 


Sample Pattern Routines for Graphics Drawer 


GRAPHICS 


Graphics Drawer enables the 
user to draw graphics on Hi- 
Res Page 2 using the Apple’s 
keyboard. 

The controls are as follows: 

| — draw line upwards 

J — draw line left 

K — draw line right 

M — draw line downwards 

O — draw line diagonally up — 
right 

U — draw line diagonally 
down - left 

, — draw line diagonally down 
- right (NB all the above keys 
are for movement.) 


C — colour (0&4 — black, 1 — 
green, 2 — violet, 3&7 — white, 
5 — orange, 6 — green) 

D — Increment — how many 
dots plotted per keypress. 

An example of Graphics 
Drawer has been included to 
show its capabilities. There is 
also another program — Sample 
Pattern Routines which has 
some interesting routines. 


Tony Humfrey 
Parkes NSW 


‘10 X = 139:Y = 90: HGR2 :COL = 3:INC = 10 

11 X1 = X:Y1l = Y 

20 GET mS 

30 IF m® = "I" THEN Y = Y - INC: IF Y = <¢ O THEN Y = O 

3S IF m® = "O" THEN Y = Y - INC:X = X + INC: IF Y = < © THEN Y = O: IF 
X = > 279 THEN X = 279 

40 IF m® = "mM" THEN Y = Y + INC: IF Y = > 191 THEN Y = 191 

45 IF M® = "," THEN Y = Y + INC:X = X ¢ INC: IF Y = > 191 THEN Y = 191: 
IF X = < 0 THEN X = 0 

So IF mM® = "K" THEN X = X # INC: IF X > 279 THEN X = 279 

SS IF mM® = "N" THEN X = X - INC:Y = Y + INC: IF X = > 279 THEN X = 279: 
IF Y = > 191 THEN Y = 191 

60 IF M® = "J" THEN X = X - INC: IF X = < O THEN X = O 

65 IF M® = "U" THEN X = X - INC:Y = Y - INC: IF X = <¢ O THEN X = O: IF 
Y= <¢ 0 THEN Y = 0 

70 IF M® = "D"“ THEN 2000 

75 IF M® = "E* THEN PRINT "": END : REM ([ CTRL-G J 

BO IF M® = "°C" THEN 1000 

®1 HCOLOR= COL: HPLOT X1i,Y1 TO x,Y 

82 GOTO 11 . 

1000 POKE - 16300,0: POKE - 16303,0: HOME : VTAB 42: PRINT “COLOUR=>": 
GET COL: POKE - 16299,0: POKE - 16304,0: GOTO 11 

2000 POKE - 16300,0: POKE - 16303,0: HOME : VTAB 12: PRINT “INCREMENT= 
>": GET INC: POKE - 16299,0: POKE - 16304,0: GOTO 11 


1 WOME : PRINT "PRESS A NUMBER TO RUN PROGRAMS 1 THRU O°: GET A 440 NEXT B 

2 ON A GOTO 10,100,200, 300, 400, 500, 600, 700, 800, 900 450 HGR : NEXT A 

5 HOME 460 @0TO 1 

8 0 SOO HWGRZ 

10 X = INT ( RND (1) # 38) + 1 510 FOR A = 1 TO 7 

15 Y = INT ( RND (1) *# 23) + 1 515 If A = 4 THEN GOTO 510 

20 HTAB X: VTAB Y: PRINT “#" 520 HCOLOR= A 

30 GOTO 10 525 FOR B = 0 TO 191 

1060 FOR A = O TO 255 S30 HPLOT O,B TO 279,B 

110 PRINT CHR® (A); 540 NEXT B 

120 NEXT A SSO H@R2 : NEXT A 

125 GET AS: GOTO 1 S60 GOTO 1 

200 HGR2 600 W@R2 :H = INT ( RND (1) # 7) #1 
205 HCOLOR= 3 605 IF H = 4 THEN 600 

210 Y = INT ( RND (1) # 190) + 1 640 HCOLOR= H 

220 X = INT ( RND (1) # 255) + 1 615 FOR B = 0 TO 191 

230 HPLOT x,Y 620 HPLOT 0O,B: HPLOT TO B,O 
280 GOTO 210 625 NEXT B 

300 HGR2 630 GOTO 600 

305 HCOLOR= 3 700 HGR2 

330 Y = INT ( RNB (1) # 190) + 14 740 X = INT ( RND (1) # 279) #1 
320 X = INT ( RND (1) # 254) #1 720 FOR Y = O TO 191 

330 B= INT ( RND (1) # 190) + 1 721 \WPLOT x,Y 

340 A = INT ( RND (1) # 254) + 1 725 NEXT Y 

SSO PLOT X,Y 730 GOTO 710 

33S HPLOT TO A,B 800 HGR2 :H = INT ( RND (1) #7) + 1 
360 GOTO 310 805 IF H = 4 THEN 800 

400 6HGR 809 xX = O:Y = 0 

410 FOR A = 1 TO 7 g10 HCOLOR= H 

415 IF A = 4 OR A = 4 THEN GOTO 410 815 HPLOT X,Y: HPLOT 0,Y TO x,0 
420 HCOLOR= A @20 X =X + 1:Y = Y + 1: IF X > 279 THEN X = 279: 
425 FOR B = 1 TO 279 : @OTO 810 

430 HPLOT B,O TO B,160 


IF Y > 191 THEN Y = 191 


This program prevents copying, 
and, in fact, looking at programs 
on your disk. It uses the RWTS 
subroutine to change the direc- 
tory file location. It is left to you 
to decide how to encompass 
this into your own greeting pro- 
gram. The basic idea of this 
program makes it quite flexible 
and it can be easily expanded 
as | will describe later. 
Bytes Accessed: 


$303 — Volume Number 

$304 — Track Number 

$305  -— Sector Number 

$306 — Command (01-Read 
02-Write) 


If you want to look at any sec- 
tor on your disk or in fact when 
you set up your copy protector 
system, you just change the 
above four locations as required 
and type 315G. The sector read 
or written will be from $2000 — 
$20FF. This buffer can be 
changed by altering locations 
$308(low-byte) and $309 (high- 
byte). 

Take a newly initialised disk 
and type in the program below 
and save it as the greeting pro- 
gram. 

10 HOME 

20 ?CHR§$(4);“BRUN DC” 30 
?CHR§(4);“CATALOG”’ 
CALL-151 and type in the hex 
DC program as given and 
bsave it as the file name in 20. 


COPY PROTECTOR 


Using the 315G _ procedure 
above, copy the directory of 
track $11-sector $OF into track 
$22-sector $OF. You now have 
a real directory in track $11 and 
a false one in track $22-sector 
$OF. When the disk is booted 
the program will change the 
VTOC so that a catalog will 
show the false directory. In fact, 
DOS can not load a program 
unless it is contained in the di- 
rectory. To get the real directory 
back you simply CALL-151 then 
333G. 

The system | use is slightly 
different to the above and was 
first placed on a half full disk. 
The difference is that the greet- 
ing program is different for each 
directory but has the same file 
name. 

The false directory is exactly 
the same as the above but the 
real directory points to a dif- 
ferent track/sector list. 

The easiest way to accom- 
plish this is to save the real di- 
rectories hello program as nor- 
mal. Then save the false direc- 
tories hello program on another 
disk or under a new file name 
on the disk you are copy pro- 
tecting. Now transfer the false 
directory containing the files, 
HELLO and DC, into track $22- 
sector $OF by the “315G’” 
method, using track $22-sector 


--- HEX DUMP --- 


O2EA: A9 01 8B 03 03 BL OC 03 AY 11 
8D 04 03 AJ OO 8D O05 03 20 1D 
03 60 01 60 01 O1 O1 11 OF 11 
03 00 20 00 00 01 00 01 60 01 
OO 01 EF D8& AJ 03 AO 00 20 DI 
03 60 20 58 FC 20 15 03 AO 01 
AJ 22 99 CO 20 AY O2 BD OC 03 
20 15 93 60 AO 11 8C O04 03 &O0 
00 8C 05 03 AO 01 8C OC 03 20 
15 03 AO O01 AJ 11 99 00 20 AY 
02 8D OC 93 20 15 03 60 


$OE as the track/sector list for 
the hello program. Write the 
track/sector list into the data 
buffer, using track $22-sector 
$OD as the first and only file lo- 
cation, and save this into track 
$22-sector $OE. Then load the 
actual tokenised sector (NB — 
the above hello program oc- 
cupies only one sector), from 
the disk used to save the false 
hello program, into the data buf- 
fer so that it can be saved into 
track $22-sector $OD. 

When the disk is booted the 
false directory will be used and 
the catalog will show the two 
files, HELLO and DC. This al- 
lows you to still retrieve the real 
directory even if the disk has 
not been booted. 

Also, it is important to adjust 
the track-bit maps to show the 
sectors you have used with the 
RWTS. All the relative informa- 
tion can be gained in the DOS 
manual under storage of files. 
For the system to work, both 
hello programs must first BRUN 
DC or the false directory must 
first BRUN DC and the VTOC 
must point to the false directory 
while you are not using the disk. 
This is done by BRUNing DC 
for the first and second cases or 
booting the disk in the first 
case. 


Michael Werner 
(Send us your address, 
Michael!) 


ICALL 151 


O300- 
O20B8- 
OFT 


OZ18- 0 


O320- 


O328- 


OS SO- 7 


O328- 
Osa 
O548- 
O25 
O758- 
O240-- 
O268- 
O77 O- 


Ol7B- 


Q280--  & 
OWA2B8- C 


OB9IO-- 3 


With this short routine, you can 
type BASIC commands using a 
single key with the control key. 
The keys and keywords | have 
chosen are shown in the table 
at the end of the program. 
BASIC commands begin at 
$DODO and occupy consecutive 
locations to $D25E. The first 
seven keys (@ to F) access 
commands on page $D0. The 
keys G to Y (excluding H, M 
and U) access keywords on 
page $D1, whilst Z accesses a 


OBO 1 
OB800 = 
O00 3 
om 85 1D OBA 4 
1C AY OO OOO ba) 
78 4C EA OO, & 
19 DO 2E OOLA 7 
85 45 C9 WoL : 
FF 60 29 QO19 Ed 
OS C& 1B Oos8 10 
1A BO O2 04S 11 
20 @5 OG o219 12 
07 AS 45 WSCB ee 
1A Bl 1A O32F 14 
BO ES 07 O34E 1S 
45 ag on W366 16 
1B FO 04 376 17 
BS EF D2 OSEA 193 
9% O00 9A FD1E 19 
"9 47°10 FF4A 20 
2s c7 ag | FRZE a 
OO rie 
Oo rans 
O30 <4 
Og AY D2 oO 
o3.o2 85 18 2h 
NI048 AD OS 27 
O504 85 1D 2&3 
O73 B88 BY 29 
M500 AP 76 30) 
O00 BS 10 1 
ONO AR ON Si 
O210 B88 1 iy 
OS1Se AG TY 74 
O714 85 39 fe) 
O316 4€ EA OF n& 
O319 ced 
OTLGF BO 4A FF 78 
O21 AS 19 9 
OZ1L1E DO CE 4 
O20 AG 45 41. 
mate CO 1B FD 42 
Ores BS 45 4 
O27 C9 GE 44 
ORLD FPO O4 45 
Cr Et 46 
OSDR LO SF FF 47 
OME 6&0 48 
OF 49 
QInF 29 7F wt) 
O351 AG a1 
OSS CP 07 ve 
ORS4 BO O06 went 
O776 C& 1B 34 
O278 C& 1B 33 
OTITA DO OG 56 
Ossc C§I 1A a7 
OASE BO OF 38 
240 CS 18 39 
O42 B11 1C 60 
O244 FO 20 61 


keyword on page $D2. 

The number of keys which 
access pages $D0, $D1, and 
$D2 could be changed altering 
the numbers in locations $0333 
and $033D respectively. 

The keywords could be 
changed by substituting the 
least significant byte of the ad- 
dress of the new command for 
one of those on the list. 

Enter the monitor and type in 
the program beginning at 
$0300. Save the program by 
typing: 


APPLESOFT COMMAND 


BSAVE ACE, A$300,L$91 
To run the program type 


BRUN ACE from. disk or 
BLOAD ACE followed by CALL 
768. If you begin the program 
from the monitor with 3006, you 
must re-enter Applesoft by typ- 
ing 3D0G, as typing Control-C 
will produce CALL. Before run- 
ning a program in Applesoft hit 
the reset button to revert to the 
normal input routine. 

The program works by pas- 
sing all input through ACE. If 


TTL "AFFLESOFT COMMAND ENTRY (ACE)" 


* BY JOHN GALLAGHER. FERB.&5 
ORG $200 
OBJ $800 
EFZ $06 
EFZ $07 
EFZ $1A 
EFZ $1C 
EFZ $19 
EFZ $28 
EFZ $45 
EQU $219 
EQU $228 
EQU $32F 
EQU $34E 
EQU $266 
EQU $376 
EQU S5EA 
EQU $FDIE 
EQU SFF4A 
EQU $FFIF 


ASTR 
CHRENT 
WRDADD 
TELADD 
WRDEND 
INHOOE: 
ASAVE 
START 
RETURN 
NXTWRD 
NX TCHR 
NXTEEY 
LETBL 
EXIT 
EEYIN 
IQSAVE 
IOREST 
* 

* INITIALIZATION 


#ED2 
WRDADD+ 1 
/START 
TELADD+1 
INHOOE’+1 
#LETEL 
TELADD 
#BOO 
WRDEND 
#START 
INHOOE: 
JMF EXIT 
INFUT ROUTINE 
JSR IOSAVE 
WRDEND * 
- NXTCHR 
ASAVE 

Y EEYIN 
ASAVE 

" #398 

NX TWRD 


* START 


%* RETURN 
. IOREST 


* NXTWRD 
#B7F 


* #07 
ed 

DEC WRDADD+1 

WRDADD+1 

ENE 2 

' #910 

BCS =2 

WRDADD+1 

(THLADD) ,Y 

 NXTEEY 


s CHECK: 


s REMOVE 
3 IF NOT 


sIF te-F 
DEC TO 


sIF G-Y DEC TO 
sLOOKUF INDEX 
IF EEY NOT USED RETURN 


i; TEMF.STORE A REG. 
sEKEYWORD CHAR. COUNT 
iSTORE KEYWORD ADDRESS 
s;STORE LOOKUP TBL ADDRESS 
sKEYWORD END FLAG 

; INFUT HOOK 

sA REG. STORE 

sINFUT ROUTINE 

3NEXT KEYWORD 

3;GET NEXT CHAR. 
i;FREPARE FOR NEXT KEY 
sLOOKUP TABLE KREGINS 
sEXIT THRU 1/0 UPDATE 
sREAD EEYROARD 

3;SAVE REGISTERS 
sRESTORE REGISTERS 


sHIGH FAGE EFEYWORD ADDRESS 


s;CLEAR WORD END FLAG 


sEXIT THRU I/0 UPDATE 


IF NOT END OF WORD 
;GET NEXT CHARACTER 


FOR CTRL.KEY 
;IF CTRL GET KEYWORD 


RESTORE & RETURN 


MSE 
@-F CONTINUE 


THEN 
$DO 


7IF Z LEAVE AT $D2 


$D1 


ENTRY 


‘ 


CTRL is pressed, the key fol- BASIC commands are stored 
lowing it is used to generate an with the MSB set only for the 
index to obtain the least signif- last character, and this is used 


icant byte of the address of the to clear the word end flag ($19). 
BASIC command which is A character counter ($07) pro- 
stored in a table beginning at vides the index to obtain each 
$0376. This byte is then stored character from the keyword 


in $1A. after its address has been lo- 
The most significant byte is cated. 
stored in $1B and has an initial The initialisation routine sets 


value of $D2. This is de- the input hook to the beginning 
cremented to $DO if keys @ to of the ACE input routine at 
F are pressed and to $D1, if $0319. 

any other key apart from Z is J. Gallagher 
pressed. Paradise Park 


0346 85 06 62 STA ASTR ;STORE LO BYTE KEYWORD ADDRESS 
0348 E6 19 63 INC WRDEND 3SET WORD END FLAG 
034A AP OO 64 LDA #00 
O34C 85 07 65 STA CHRCNT 3CLEAR CHR COUNT 
O34E 6&5 * NXTCHR 
O34E AS 45 67 LDA ASAVE 
0350 A4 07 68 LDY CHRCNT 
0352 AS 06 69 LDA ASTR ;GET LO BYTE KEYWORD ADDRESS 
0354 85 1A 70 STA WRDADD . 
0356 B1 1A 71 LDA (WRDADD) ,Y 3GET NEXT CHARACTER 
0358 C9 80 72 CMF #80 3LAST CHARACTER 7 
O35A BO 08 73 BCS 33 
o35C 09 80 74 ORA #%$80 
O35E E& 07 75 INC CHRCNT 
0360 85 45 76 STA ASAVE 
0362 DO C7 77 BNE RETURN 
0364 85 45 ye “3 STA ASAVE 4 
0366 79 * NXTEEY 
0366 AI OO 80 LDA #$00 
0368 85 19 81 STA WRDEND ;CLEAR WORD END FLAG 
036A AP D2 82 LDA #%D2 
O36C CS 18 es *S CMF WRDADD+1 
O36E FO 04 84 BEQ 34 
0370 E6 1B 85 INC WRDADD+1 ;INC TO $D2 
O372 DO F8 84 BNE <S 
0374 FO BS 87 “4 BEQ RETURN 
0376 88 * LOOK UF TABLE 
0376 EF 89 HEX EF 3@=TEXT 
0377 D3 90 HEX D3 7 A=FOR 
0378 Dé 91 HEX Dé 3 B=NEXT 
O379 F9 2 HEX F9 3C=CALL 
O37A DA 3 HEX DA ;D=DATA 
O37B E9 94 HEX E9 3 E=READ 
O37C DE 95 HEX DE 3F=INFUT 
O37D 9S 96 HEX 9% :G=GO TO 
O37E 00 97 HEX OO 3H NOT USED 
O37F 9A 98 HEX 9A sI=I1F 
0380 Sé 99 HEX 56 ; J=FLASH 
0381 4F 100 HEX 4F 3K = INVERSE 
382 90 101 HEX 90 3L=LET 
O383 OO 102 HEX OO 3M NOT USED 
0384 49 103 HEX 49 3; N=NORMAL 
o385 29 104 HEX 2 3 O=HOME 
O286 17 105 HEX 17 3 F=HF'LOT 
0387 10 106 HEX 10 3 Q=HCOLOR= 
0388 09 107 HEX 09 3R=HGR2 
0389 A4 108 HEX A4 3S=GO SUR 
O38A EF 109 HEX EF 3 T=THEN 
0O38B 00 110 HEX 00 3U NOT USED 
O28C 64 111 HEX 64 ; V=VTAB 
O38D 25 112 HEX 25 7W=HTAB 
O28E C7 145 HEX C7 3 X=FOKE 
O38F AP 114 HEX AQ? 3 Y=RETURN 
0390 3 115 HEX 3B 3 Z=PEEK: 
O391 114 END 


*#*#e#ee END OF ASSEMBLY 


TYPE 


Type is a game designed to in- 
crease your typing skills on the 
Apple. It clears the screen and 
flashes a letter on the screen in 


WOMONOOAWAWNH- 
z 


REM 
a random place. You are given WME Fis Se inte 
a certain amount of time in iat 
which to press that key (time is AQ REM Member of the 
selected at the beginning of the oy caeer “ Masacee Mege ees 
program by the user). If you do 13° REM 
not press the key within that ee. 
time you go onto the next key 16 REM CLUB 
(10 to 50 letters, selected by ogee 
you at the beginning of the pro- 100 HOME : ONERR GOTO 2700 
gram). If you press the incorrect = ee oF Renee tae Te “ae 
key, you are not penalised but 300 IF GAMES < 10 OR GAMES > SO THEN 
must still press the correct key. 400 aan : PRINT : PRINT : PRINT 

This program could easily be : PRINT : INPUT "SPEED (0.5 

adapted for use on other eso a 
micros. The statement in line THEN 400 
1600 simply clicks the speaker. Ge. en ee ee 
The timing may have to be ad- 700 V = INT « RND (1) * 24) +1 
justed on faster or slower ee 
micros (this was done on a lle). 1000 C% = CHR® (Cc) 


ic ic j - 1100 VTAB V: HTAB H: PRINT CS 
This mF) the for next loops. 12090 FOR. .A= 1 TCO SFD ¥* 100 
The statement in 1300 simply 1300 IF PEEK ¢ - 16384) > 127 THEN 
gets a character or checks if GET RS 
1400 IF R® = C$ THEN 2000 
one has been pressed. It can ne. HET RB 
Pee werner Wes cu || Sze Pe ces 
statement. ‘Inverse’ makes. all ce Wee a - 
characters printed after it ap- 1900 NEXT G 
° ° 1950 GOTO 2250 
pear black on white (instead of 2000 PRINT "HIT": FOR T = 1 Te 4 
white on black) until the ‘Nor- Ro igi 
’ 1 = I+ i 
mal’ statement. ates NEST -& 
All the rems can be omitted. 2250 HOME : TNVERSE : VTAR 1: HTAR 


Tony Humfrey 
Parkes NSW 


2300 


2400 


2500 


2600 


2700 


12800 REM INSERT CTRL@-G IN LINE 2000 


19: PRINT "SPEED ";SPD;"C/P/ 
s": NORMAL 
VTAB 11: PRINT "YQU GOT ";I 
3" QUT QF "3GAMES;”" RIGHT": PRINT 


IF I = > GAMES - (GAMES / 
5) THEN PRINT "GREAT GQOING'! 
":; FOR F = 1 TQ 1000: NEXT : 

GOTO 2650 


IF I < GAMES - (GAMES / 5) AND 
I = > GAMES / 2 THEN PRINT 
"FAIRLY GOQD": FOR F = 1 Ta 


1000: NEXT : GOTQ 2650 
IF I ¢ GAMES / 2 THEN PRINT 
"NEED PRACTICE”: FOR F = 1 TO 
1000: NEXT : GQATO 2650 


PRINT "ANOTHER GAME(Y/N) "3: 
GET YS: IF Y® = "Y¥" THEN GQTO 
100: IF YS® = "N" THEN END : 


GQTO 2700 


LORD OF THE RINGS 


This is a program written for a O TEXT : HOME 

48K Apple Il+ aimed at restor- 2 REM LORD OF THE RINGS BY SHAUN HUMFREY 

ing peace to Middle Earth. It is S HOME : CLEAR 

a long listing and to save typing fe At = <Q 

it out, | will put it on disk for 10 HTAB 12: INVERSE : PRINT "LORD OF THE RINGS”: NORMAL 
everyone who sends me a disk 20 VTAB 5: PRINT : VTAB 5: INPUT "ENTER NAME ->"3NS 


35 IF N® = "LEGOLAS” THEN 75 
and five dollars. All proceeds ao “Te Ne = {RTC BO THEA! a6 
will go to the Parkes High 


40 IF N® = "BOROMIR"” THEN @5 
School Computer Club. Please 42 IF N®& = "“SAURON" THEN 5 
mark all parcels “Computer 44 IF Ne = “GANDALF” THEN 5S* 
disks — keep away from magne- 45 IF N® = "THEODEN” THEN 5 
ts”. Write care of Your Com- 46 IF N® = "ARAGORN" THEN 5 
puter and it will be passed on. 47 IF N®% = "FRODO" THEN 5 
48 IF N® = "GALADRIEL" THEN 5 
Shaun Humfrey 49 GOTO 100 
Parkes NSW SOQ RS = "ELF":RS® = "ELVES":WS% = "BOW": GOTO 200 
S5 RS = "DWARF":RSS = "DWARVES":WS = "AXE": GOTO 200 
S?7 R& = "HOBBIT":RS® = "HOBBITS":WS = "KNIFE": GOTO 200 
60 RS = "HUMAN":RSS = "HUMANS":WS = "SWORD": GOTO 200 
ff ye 70 PRINT : PRINT "GREETINGS GIMLI,SON OF GLOIN.": FOR I = 1 TO 2000: NEXT I: GO 
ay se wy i en TO 
i ee ON Mal 4 55 
ae — ; “* 25 PRINT : PRINT "I WISH THEE WELL,LEGOLAS.": FOR I = 1 TO 2000: NEXT I: GOTO 5 
| o 
" 80 PRINT : PRINT "GREETINGS BILBO,FINDER OF THE RING.": FOR I = 1 TO 2000: NEXT 
y : 
: GOTO 57 
85 PRINT : PRINT "GOOD LUCK ON YOUR QUEST, BOROMIR.": FOR I = 1 TO 2000: NEXT I: 
GOTO 
60 
100 PRINT : PRINT : PRINT "(1) DWARF"! PRINT : PRINT "(2) ELF"! PRINT : PRINT " 
(3 


) HUMAN": PRINT : PRINT "(4) HOBBIT": PRINT : PRINT : PRINT 
116 PRINT "ENTER RACE ->"3: GET R 
120 IF R > 4 THEN 100 
126 IF F < 1 THEN 100 
mA 130 ON R GOTO 55,50,60,57 
. 199 REM INSTRUCTIONS 


200 HOME 
210 PRINT " WELCOME TO RIVENDELL,"3;NS;".": FRINT : PRINT "YOU HAVE BEEN CHOSEN 
T 
O REPRESENT ": PRINT : PRINT RS%;" IN THE COMPANY SELECTED TO ": PRINT : PR 
INT 
"DESTROY THE RING OF SAURON."”: FRINT : PRINT : PRINT "DO YGU WANT MORE INFO 
RM 


ATION ABOUT THE": PRINT : PRINT "THE RING 7 "3: GET AS 
220 IF AS = "¥" THEN 250 
225 IF AS = "N" THEN 400 
230 GOTO 200 
229 REM ABOUT THE RING 
250 HOME : PRINT " THE RINGS OF POWER WERE FORGED IN THE": PRINT : PRINT "CRACK 


F DOOM BY SAURON,EVIL LORD OF": PRINT : PRINT "MORDOR. THESE RINGS CORRUPT T 


HE 
SPIRIT": PRINT © PRINT "AND DECAY THE BODY.KNOWING THIS HE": PRINT | PRINT 
\ id 
x GAVE NINE RINGS TO MEN,SEVEN TO DWARVES": PRINT 
7 260 PRINT “AND KEPT THE RULING RING TO CONTROL THE": PRINT © PRINT "OTHERS. THRE 
E 


GOOD RINGS WERE MADE BY": PRINT : PRINT "ELVES,BUT THEY TOG ARE AFFECTED BY p 


LORD OF THE RINGS 


HE": PRINT : PRINT "ONE RULING RING. ” 


270 PRINT : PRINT " MEN AND DWARVES WITH THE RINGS FELL": PRINT : PRINT “INTO T 


SERVICE OF SAURON. " 


2735 VTAB 24: PRINT "PRESS ANY KEY TO CONTINUE";: GET AG 
277 HOME : PRINT "THE NINE MEN WITH RINGS WORSHIPED": PRINT : PRINT "SAURON. ONL 


THREE OF THE SEVEN ": PRINT : PRINT "DWARF-LORDS CAME TO SAURON. THE OTHERS” 


: PRINT 


> PRINT "WERE KILLED BY DRAGONS OR DEMONS." 
279 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE"”;: GET AS 
280 HOME : PRINT " SAURON LOST THE RULING RING IN BATTLE“: PRINT ©: PRINT “AGAIN 


ST 
A RACE OF MEN FROM ACROSS THE": PRINT : PRINT "GREAT SEA.CENTURIES LATER I 
T 
WAS": PRINT : PRINT "FOUND BY A SMALL BEING CALLED SMEAGOL.”": PRINT : PRINT 
HE EVENTUALLY LOST IT AND IT WAS ": PRINT 
290 PRINT "LATER FOUND BY A HOEBIT NAMED BILBO.HIS": PRINT : PRINT "NEPHEW, FROD 
a, 
NOW HAS IT.FRODO IS IN": PRINT ©: PRINT "YOUR COMPANY AS RINGBEARER. " 
300 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS 
400 HOME 


410 PRINT "ALSO IN YOUR PARTY ARE GANDALF,A " 


GORN,RIGHTFUL KING " 


PRINT : PRINT "POWERFUL WIZARD;SA 


PRINT : PRINT "OF GONDOR;AND FRODO, THE RINGBEARER. " 


420 VTAB 21: PRINT "PRESS ANY KEY TO EMBARK ON YOUR": PRINT | PRINT "“JOURNEY";: 


GET 
AS 
499 REM THE BEGINNING!!! 
S0O HOME 
510 PRINT " YOU EMBARK ON A COLD WINTER MORNING.": PRINT : PRINT "YOU WALK MANY 
L 
EAGUES UNTIL” 
520 PRINT : PRINT “YOU REACH THE ANCIENT AND LONG ": PRINT : PRINT “ABANDONED D 
WA 


RF-KINGDOM OF MORIA WHICH": PRINT © PRINT 


"FILLS THE INSIDE OF A MOUNTAIN.” 


S30 PRINT : PRINT "HERE YOU HAVE A CHOICE...WILL YOU GO": PRINT © PRINT "THROUG 


H 

THE REALMS OF MORIA GR GO OVER": PRINT : PRINT "THE MOUNTAIN VIA A SMALL PA 
TH 

? ” 
540 PRINT : PRINT : FRINT "(ENTER M FOR MORIA AND P FOR PATH.) "3: GET D& 


535 PRINT 

350 IF D® = "P" THEN 600 
SSS IF DS = "M" THEN 3800 
760 GOTO 3540 

S99 REM MOUNTAIN PATH 


600 HOME : PRINT " AS YQU ASCEND THE MOUNTAIN A SNOWSTORM": PRINT : PRINT "STAR 


»- THIS COULD BE WORSE THAN YOU": PRINT © PRINT "THOUGHT." 


610 PRINT : PRINT | PRINT "ARE YOU SURE YOU WANT TO GO ON ? "5: GET AS 

615 PRINT 

620 IF AS = "N" THEN 320 

625 IF AS = "VY" THEN 650 

630 GOTO 610 

650 B= INT ( RND (1) *% 10) + 1: IF B < 3 THEN 670 

660 PRINT : PRINT "THE SNOWSTORM DIES DOWN,AND YOU ": PRINT = PRINT "CONTINUE U 
P 


THE PATH": PRINT ©: PRINT ©: PRINT : PRINT 


GET AS 
662 M = M + 300 
GOTO 680 
PRINT © PRINT "THE BLIZZARD CONTINUES AND 


PRINT "PRESS ANY KEY TO CONTINUE 


YOU FREEZE": PRINT ©: PRINT "TO DE 


TO 


680 
RO 


690 
700 
705 
710 
720 


H.": PRINT : PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: GO 


3000 
HOME : PRINT "YOU PROCEED UNTIL YOU COME TO A FORK": PRINT : PRINT "IN THE 


AD.” ' 

PRINT : PRINT "WILL YOU GO LEFT OR RIGHT ? "5: GET DS 

IF D® = "L" THEN 720 

IF DS = "R" THEN 750 

GOTO 690 

HOME : PRINT "YOU TAKE THE LEFT PATH.SOON YOU HEAR A": PRINT : PRINT "DISTA 


RUMBLE. YOU LOOK UP TO SEE": PRINT : PRINT "TONNES OF ROCK FALLING TOWARDS 


U.": PRINT : PRINT "YOUR PARTY HAS BEEN KILLED IN AN": PRINT |: PRINT "AVALA 


Ee." 
VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE"5: GET AS: GOTO 3000 
HOME : PRINT "YOU TAKE THE RIGHT PATH. YQU WALK DOWN": PRINT © PRINT "THE OT 


R SIDE OF THE MOUNTAIN SAFELY." 


VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE"3: GET AS 
GOTO 1100 


REM MORIA 
HOME 


PRINT "YOU ENTER MORIA SLOWLY.IT IS DARK AND": PRINT : PRINT "THERE IS A SE 


E OF EVIL IN THE AIR.": PRINT : PRINT "THIS COULD BE WORSE THAN YOU THOUGHT 


PRINT ©: PRINT "ARE YOU SURE YOU WANT TO GO ON ? "$3: GET AS 

PRINT 

IF AS = "N" THEN 520 

IF AS = "Y" THEN 850 

GOTO 820 

PRINT : PRINT "GANDALF EMITS A GLOW FROM THE END OF ": PRINT : PRINT "HIS S 


FF.YOU CAN SEE SIDE PASSAGES TO": FPRINT : PRINT "THE LEFT AND RIGHT." 
PRINT : PRINT "DO YOU WANT TO EXPLORE A SIDE PASSAGE ?": GET AS 
PRINT 


IF AS = "Y" THEN 890 

IF AS = "N" THEN 1000 

IF AS = "L" THEN 900 

IF AS = "R" THEN 950 

GOTO 860 

PRINT : PRINT "LEFT OR RIGHT ? "5: GET AS 
PRINT ; 
IF AS = "L" THEN 9300 

IF AS = "R" THEN 950 

GOTO s90 


REM ORC DOOR 
HOME ©: PRINT "YOU WALK DOWN THE PASSAGE AND COME TO A": PRINT : FRINT "A DO 


PRINT : PRINT "WILL YOU OPEN IT ? "5: GET AS: PRINT 
IF AS = "N" THEN 920 

IF AS = "¥" THEN 925 

GOTO 305 


PRINT =: PRINT "YOU LEAVE THE DOOR AND COME BACK TO THE": PRINT : PRINT "MAI 


HALLWAY.": FOR I = 1 TO 3500: NEXT I: GOTO 1000 
HOME : PRINT "YOU BREAK THROUGH THE DOOR AND ARE": PRINT : PRINT "IMMEDIATE 


CONFRONTED BY A BAND GF ": PRINT : PRINT "ORCS." 


PRINT : PRINT "WILL YOU FIGHT OR RUN ? "5: GET FS > 
PRINT 


929 
930 


38 


LORD OF THE RINGS 


IF F@® = "RR" THEN 945: IF F® = “F" THEN 930: GOTO 927 
HOME : PRINT "ARAGORN DRAWS HIS SWORD AND HEWS AT THE": PRINT =: PRINT "ORCS 
IGHTNING LEAPS FROM GANDALF’S": PRINT : PRINT "STAFF,KILLING MANY ORCS. YOU 
ELD YOUR": PRINT : PRINT WS; " SKILLFULLY." 
K = INT ( RND (1) * 25) + 1:S = INT ( RND (1) *¥ 10) + 1 
PRINT : PRINT "DURING BATTLE YOU FIGHT VALIANTLY AND": PRINT : PRINT "KILL 
K5;" ORCS.” 
IF S ¢ 3 THEN 9°46 
PRINT : PRINT "EVENTUALLY, YOU KILL ALL THE ORCS.": VTAB 22: PRINT "PRESS AN 
KEY TO CONTINUE";: GET AS 
PRINT PRINT 
m= M + 800: GOTO 860 
HOME :S = INT ( RND (1) # 10) + 1: IF S < 4 THEN 997 
PRINT "YOU ARE ALL SLAUGHTERED BY THE ORCS": FOR I = 1 TO 3000: NEXT I: GOT 
3000 
PRINT "YOU RUN DOWN THE TUNNEL BACK TO THE": PRINT = PRINT "MAIN HALLWAY": 
I = 1 TO 3000: NEXT I: GOTO 1000 
HOME PRINT "YOU ARE CONFRONTED BY A FIRE DEMON,A": PRINT =: PRINT “BALROG. 
PRINT ©: PRINT "WILL YOU FIGHT OR RUN 7 "5: GET FS 
PRINT 
IF F® = "F" THEN 960 
IF FS = "R" THEN 957 
GOTO 350 
C = INT ( RND (1) * 10) + 1 
IF C <¢ 3 THEN 947 
PRINT PRINT "THE BALROG CASTS A SPELL,AND YOU CANT": PRINT PRINT "LEAVE 
HE ROOM. " 
PRINT : PRINT "YOU ATTACK THE BALROG WITH YOUR ";WS:! PRINT PRINT "ARAGORN 
EAPS AT THE BALROG’S THROAT." 
IF FS = "R" THEN 965 
GGTO %70 
PRINT PRINT ‘THE BALROG CASTS GANDALF INTO AN ABYSS.":GAS = "DEAD" 
GOTG ¢?2 
GA = INT ( RND (1) *# 10) + 1 
IF GA < 3 THEN 965 
S = INT ( RND (1) *# 10) + 1 
IF 5S 4 THEN 980 
GaTQ 3384 
PRINT PRINT "THE BALROG FIGHTS LIKE A DEMON (WHICH": PRINT PRINT "IT I5S 
AND KILLS YOU ALL.": PRINT © PRINT PRINT "FRESS ANY KEY TO CONTINUE";: GE 
AS: GOTO %000 
PRINT PRINT PRINT 
PRINT PRINT "PRESS ANY KEY TO CONTINUE"S: GET AS: HOME PRINT "WITH YOUR 
3WS;" YOU WOUND THE": FRINT PRINT "BALROG IN THE THROAT,KILLING IT.” 
m= M + 600 
PRINT : PRINT "ON THE FLOOR YOU FIND A RING.": IF GAS = "DEAD" THEN 990 
PRINT PRINT "GANDALF SAYS IT IS ONE OF THE LOST": PRINT © PRINT "RINGS OF 
OWER OF THE DWARF-LORDS. "” 
PRINT PRINT "THE RING [5S ONLY TO BE USED IN EXTREME": PRINT PRINT "EMER 
NCIES.": VTAB 22 
IS = "RING" 
PRINT "PRESS ANY KEY TO CONTINUE";: GET AS 


1000 HOME : PRINT "YOU NEAR THE EXIT TO MORIA.": PRINT ©: PRINT "SUDDENLY YOU HE 
AR 
THE BOOM OF DISTANT ": PRINT : PRINT "DRUMS AND ORC ISSUE FORTH FROM THE®: 
PRINT 
: PRINT "EASTERN DOOR." 
1010 IF GAS = "DEAD" THEN 1050 
1020 PRINT : PRINT “GANDALF CASTS A SPELL AND THE EASTERN": PRINT ©: PRINT "DOOR 
A 
ND NEARBY CEILING COLLAPSE": PRINT ©: PRINT "KILLING THE ORCS.": VTAB 22: PR 
INT 
"PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 1100 
1050 PRINT : PRINT "WILL YOU FIGHT OR RUN ? "5: GET FS 
1052 PRINT 
1035 IF FS = "R”" THEN 1080: IF FS% = "F" THEN 1060: GOTO 1050 
1060 HOME : PRINT "YOU AND ARAGORN FIGHT SIDE BY SIDE": PRINT : PRINT "KILLING 
MA 
NY ORCS. YOUR "j;WS;" IS A": PRINT : PRINT "GOOD WEAPON." 
1065 S = INT (¢( RND (1) *# 10) + 1:K = INT ( RND (1) *® 20) + 1 
1070 PRINT : PRINT "YOU KILL "5;K5" ORCS WITH YOUR "5; WS 
1075 IF S < 4 THEN 1079 
1076 M = M + 600 
1077 PRINT : PRINT "YOU FINALLY KILL ALL THE ORCS.": PRINT : PRINT =: PRINT : PR 
INT 
"PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 1100 
1079 PRINT : PRINT “YOU FIGHT VALIANTLY BUT SOON TIRE.": GOTO 1090 
1080 S = INT (¢( RND (1) * 10) + 1: IF S ¢ 3 THEN 1100 
1090 PRINT ©: PRINT "THE ORCS KILL YOU ALL." PRINT ©: PRINT : PRINT : PRINT "PRE 
ss 
ANY KEY TQ CONTINUE";: GET AS: GOTO 39000 
1100 HOME : PRINT "YOU REST AT THE FOOT OF THE MOUNTAIN TO": PRINT © PRINT "PLA 
N 
YOUR NEXT MOVE." 
1110 PRINT : PRINT "WILL YOU GO THROUGH THE STRANGE FOREST": PRINT : PRINT "OF 
LO 
TRLORIEN TO GET TO GONDOR TO GET": FPRINT : PRINT "HELP,OR GO STRAIGHT TO MO 
RD 
OR ?" 
1120 PRINT : PRINT “(ENTER G FOR. GONDOR,M FOR MORDOR.)"3;: GET DS 
1122 PRINT 
1125 IF D® = "M" THEN SOOO 
sae IF DS "G" THEN 1500 
1146 GOTO 1120 
14°9 REM LOTHLORIEN 
1500 HOME 
1505 FRINT "STRANGE TALES ARE TOLD ABOUT THE FOREST": PRINT =: PRINT "OF LOTHLOR 
IE 
N.” 
1510 PRINT ©: PRINT "ARE YOU SURE YOU WANT TO GO ON ? "3: GET AS 
1311 PRINT 
1512 IF AS = "N" THEN 1100 
15i5 IF As "Y" THEN 1520 
1517 GOTO 1500 
1520 HOME : PRINT "ELVISH WARRIORS CAPTURE YOU AND TAKE ": PRINT : PRINT "YOU T 
0 
THETR QUEEN, GALADRIEL." 
1525 IF GAS = "DEAD" THEN 1530 
1528 GoTo 1540 
1530 PRINT : PRINT "GANDALF IS ALSO THERE.APPARENTLY,HE ": PRINT : PRINT "SURVI 
VE 
D THE BALROG.HE LOOKS WISE AND ": PRINT : PRINT "MORE DISTANT THAN BEFORE.” 
135335 GAS = "" 
1590 PRINT : PRINT "GALADRIEL QFFERS YOU FOOD AND REST": PRINT : PRINT "WHICH Y 
Ou 


GRATEFULLY ACCEPT.SEVERAL”": PRINT : PRINT "DAYS LATER YOU DECIDE TO LEAVE. 


PRINT : PRINT "GALADRIEL WARNS THAT THERE [S TRNOUIRIF": PRINT : PRINT "RRFEU 


G IN THE NEARBY LAND OF ROHAN AND" 
PRINT : PRINT “GANDALF IS DEEPLY WORRIED 
PRINT : PRINT : PRINT 
PRINT "WILL 


RM.)"3: 
IF DS = 
IF D& = "G" 
IF DS = "R" 
GOTO 1555 
REM ROHAN/ ISENGARD 
HOME ©: PRINT " 


GET 
a 


DS 

THEN 3000 
THEN 4000 
THEN 2000 


NOWN HERE AND YOU ARE": PRINT : PRINT 


"PRESS ANY KEY TO CONTINUE”;: 
YOU GO TO ROHAN, GONDOR OR MORDOR ?*: 


YOU WALK UNTIL YOU REACH ROHAN. ”: 


GET AS: 
PRINT : PRINT 


HOME 
"(ENTER R,G 


PRINT :; PRINT "GANDALF IS 


"GRANTED IMMEDIATE AUDIENCE WITH KING 


PRINT © PRINT "“THEQDEN.HE TELLS YOU THAT SARUMAN,HEAD": PRINT : PRINT "OF 
E WIZARDS HAS TURNED EVIL AND” 

PRINT : PRINT "IS FORTIFIED AT THE ANCIENT STRONGHOLD": PRINT : PRINT "OF 
THANC,AT ISENGARD.GANDALF SAYS ": PRINT PRINT "THAT SARUMAN ALSO WANTS TH 
RING.": PRINT PRINT " AFTER YOU ARE RESTED,YOU DECIDE TO ": PRINT PRINT 
LEAVE ROHAN. " 

VTAB 22: PRINT "WILL YOU GO TO ISENGARD,GONDOR OR": PRINT PRINT "MORDOR 
ENTER I,G,OR M.)"3: GET D& 

IF D& = "M" THEN SOOO 

IF DS = "G" THEN 4000 

IF DS = "I" THEN 2100 

GOTO 2020 

REM SARUMAN 

HOME : PRINT " YOU RIDE TO ISENGARD ON HORSES FROM": PRINT : PRINT "ROHAN. 
OUT 3:00 PM YOU REACH ORTHANC."! PRINT : PRINT "WITH THE FORCES OF ROHAN YO 
SUMMON": PRINT : PRINT "SARUMAN.HE COMES,WITH A HORDE OF ": PRINT PRINT " 
TATED ORCS." 

PRINT : PRINT "WILL YOU FIGHT OR RUN ? "3: GET FS 

PRINT 

IF F® = "R" THEN 2150 

IF FS% = "F" THEN 2200 

GOTO 2110 
S = INT ( RND (1) * 10) + 1: IF S < 4 THEN 2170 
M= M + 500 

HOME : PRINT "SARUMAN SHOUTS °’ASH KRIMPATUL!’ AND": PRINT : PRINT "FIRE LE 
S FROM THE GROUND AND KILLS": PRINT : PRINT "YOU. "!: VTAB 22: PRINT "PRESS A 

KEY TO CONTINE";: GET AS: GOTO 93000 

HOME : PRINT "THE RIDERS OF ROHAN,AND YOUR COMPANY": PRINT PRINT "FLEE B 
K TO ROHAN. ": VTAB 22: FRINT "PRESS ANY KEY TO CONTINUE";: GET AS: HOME : G 
2020 

HOME : PRINT "YOU LEAD THE FORCES OF ROHAN INTO": PRINT PRINT "BATTLE. YO 
KILL "3; INT ( RND (1) * 15) + 13" ORCS WITH YOUR": PRINT PRINT WS3".”" 

S = INT ( RND (1) * 10) + 1: IF S < 6 THEN 2250 

PRINT : PRINT "SARUMANS ORCS KILL ALL OF YOU.": VTAB 22: PRINT "PRESS ANY 
Y TO CONTINUE";: GET A®%: GOTO 9000 

PRINT ; PRINT “GANDALF FIGHTS SABUMAN AND DESTROYS HIM.": PRINT : PRINT "T 


HE 


2252 
2255 
2260 
EF 


2265 
2267 
2270 
2280 
2270 
2300 


4020 
4025 
4030 
INT 


ID 
4040 


40350 
NC 


SURVIVING ORCS IMMEDIATELY ": PRINT : PRINT "SURRENDER. " 
M= M + 1000 


VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: HOME 


PRINT " YOU ENTER SARUMAN’S ROOM IN SEARCH OF": PRINT : PRINT "ANYTHING US 


UL.ON THE DESK YOU SEE ": PRINT : PRINT "A GLASS SPHERE. " 


PRINT : PRINT "WILL YOU GET IT ? "5: GET AS 

PRINT 

IF AS = "¥" THEN 2300 

IF AS = "N" THEN 2400 

GOTO 2265 

HOME : PRINT "YOU GET THE SPHERE AND SHOW IT TO ": PRINT : PRINT "GANDALF. 


SAYS IT IS A SEEING STONE,A": PRINT : PRINT "PALANTIR,OR BASICALLY A CRYST 


BALL.” 
PS = "SPHERE” 

PRINT : PRINT "WILL YOU USE IT ? "5: GET AS 
PRINT 

IF ASB = "¥" THEN 2350 

IF AS = "N" THEN 2400 

GOTO 2310 
P = INT ¢( RND (1) * 10) + 1: IF P < 4 THEN 2370 


M= M + 200 


HOME : PRINT "YOU GAZE INTO THE PALANTIR AND SEE": PRINT = PRINT "A GIANT 


IDER IN A SMALL TUNNEL. THIS": PRINT : PRINT "VISION FADES AND IS REPLACED B 


THE": PRINT : PRINT "CRACK OF DOOM. BEFORE IT IS SAURON.HE IS": PRINT : PRIN 


"WAITING FOR YOU.”. 
VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 2400 


HOME : PRINT "YOU LOOK INTO THE PALANTIR AND SEE": PRINT : PRINT "SAURON.H 


SEES YOU AND SUDDENLY A LIGHT": PRINT : PRINT "STABS OUT OF THE PALANTIR AN 


KILLS YOU": VTAB 22 
PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 7000 


HOME : PRINT "YOU RIDE BACK TO ROHAN, THINKING OF THE": PRINT © PRINT "DAY’ 


EVENTS. YOU FINALLY DECIDE TO ": PRINT : PRINT "LEAVE ROHAN." 
VTAB 22: PRINT "WILL YOU GO TO GONDOR OR MORDOR ? "35: GET DS 
IF DS = "M" THEN SOOO 
IF D&® = "G" THEN 4000 
GOTO 2410 
REM GONDOR 
HOME 


HOME =: PRINT "YOU ARRIVE AT GONDOR IN THE EVENING. YOU": PRINT : PRINT "ARE 


RANTED AN AUDIENCE WITH THE": PRINT : PRINT "STEWARD OF GONDOR.HERE ARAGORN 


UTS "i PRINT ©: PRINT "FORTH HIS CLAIM TQ THE THRONE OF ": PRINT : PRINT "GO 
OR.” 
B= INT (¢( RND (1) ¥* 10) + 1: IF B < S&S THEN 4050 


M= M + SOO 


PRINT : PRINT : PRINT "HE IS DISBELIEVED AND YOU ARE BANISHED": PRINT : PR 


"FROM THE KINGDOM. YOU DECIDE TO GO TO": PRINT : PRINT "MORDOR WITHOUT THE A 


OF GONDOR.” 


VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE"; : GET AS: GOTO S000 
PRINT : PRINT "THE STEWARD KNEELS AND PLEDGES HIS": PRINT : PRINT 


E TO ARAGORN.": PRINT : PRINT " DAYS LATER.GONDOR TS RESFITGEN. THF": 


"ALLEGIE 


PRINT °: 


LORD OF THE RINGS 


PRINT 
"FORCES OF SAURON HAVE GATHERED. THERE": PRINT : PRINT "ARE MILLIONS OF ORGS 
;s 
OME. WARGS (GIANT": PRINT : PRINT "WOLVES),AND SOME DRAGONS.": PRINT : PRINT 
9060 PRINT "PRESS ANY KEY TO CONTINUE";: GET AS 
9065 HOME : PRINT "WILL YQU FIGHT QR SURRENDER ? "35: GET FS 
4070 IF F@® = "FF" THEM 4100 
4080 IF F@® = "&" THEN 6C50 
4090 GOTO 4065 
4100 HOME : PRINT "YOU HELP DEFEND GONDOR.A DRAGON SWOOPS": PRINT : PRINT "LOW 
AN 
D YOU KILL IT WITH YOUR "sWSs".": PRINT : PRINT "YOU KILL MANY WARGS AND OR 
cs 
; BUT you": PRINT : PRINT "ARE TIRING." 
4105 M = M + 700 
9110 S$ = INT ¢( RND (1) ¥* 10) + 1: IF S * ?Y THEN 4150 
4120 PRINT : PRINT "GONDOR IS SOQN LAID IN RUBBLE BY THE”: PRINT = PRINT "INVAD 
ER 
S.A WARG LEAPS AT YOUR THROAT.": PRINT PRINT "YOU ARE DEAD." 
4130 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE";: GET AS 
4140 GOTO %000 
4150 PRINT : PRINT "YQU CAPTURE THE LEADER OF THE INVASION. ": PRINT : PRINT "IT 
T 
S A HUMAN WARRIOR. YOU TELL HIM TO": PRINT : PRINT "MAKE HIS FORCES RETREAT 
AN 
D THEY DO.": PRINT : PRINT "YGOU’VE WON THE BATTLE?!” 
4160 VTAB 22: PRINT "PRESS ANY KEY TO CONTINUE’: : GET AS: HOME 
4165 IF PS& = "SPHERE" THEN 417C 
941646 GOTO 3200 
4170 PRINT "BACK IN THE THRONE ROOM YOU DECIDE To’: FRINT 2: FRINT "USE THE PALA 
NT 
Ir." 
4172 M= M + 200 
4175 P = INT ( PND (1) ¥* 10) + 4: IF Zz THEN 41269 
4177 PRINT : PRINT "Cl! SEE WHOLE ARMIES STILL LEFT IN ": PRINT : FRINT “MGRDOR 
4178 VTAB 22: PRINT "PRESS Abi’ KE’ To CONTINUE’: GET Ad 
4179 GaTO 3200 
4180 PRINT : PRINT "YOU SEE SAURON. FE SEES YOU AND MUTTERS”™: FRINT : FRINT ~ SOM 
ET 
HING. TMMEMOTATELY Yell ARE DEAT.” 
4190 VTAB 2?P: PRINT "PRESS ANY MEN TQ CONTINUE’): GET AS: GCOTER F000 
4200 HOME : PRINT "YOU DECIDE THAT A SMALL FARTY IS ALL": FRINT © PRINT “THAT C 
AN 
BE USED TO DESTRAyY THE SING. ": PRINT PRINT “THE GRIGINAL FARTY SETS GUT 
TO 
MOPDOR.": PRINT PRINT "THE STEWARD RULES GONDUR AGAIN.” 
4210 VTAB 22: FPRINT "CRETO ANY KEY TO CaNTINGe"*;: GET AS 
4999 REM MOFLPOR 
S000 HOME © PRI'T " YOU HAVE ARRIVED AT THE GATES GF : FRIWT « FRIRT “NORDOR.wiI 
LAG 
YOU GET IN THROUGH THE “i FRIVT Frit GAr’eo IR THROUGH A TUNNEL AT THE" 
: PRINT 
: PRINT "WESTES™N FnNCe CF MOCRDOFR 7" 
5019 PRINT © PRINT "(ENTEF G FOR GATE,T FOR TUNNEL.)"3;: GET D® 
SO11 PRINT 
501s TF NS = "G" THEN S050 
SO?70Q IF DS = "T" THEN S250 
SO30Q 6©GOTO S010 
5050 IF GAS = "DEAD" THEN SO60 
SOS S GOTO 5970 
3060 PRINT : FPRINT "HOW CAN WE GET THROUGH LOCKED GATES": PRINT : PRINT "WITHOU 
ry 
GANBALF ?7'": FOR I = 1 TO.S09OQN0: NEXT T: GATA SIN. 


— wn 


3070 
mo 


S075 
5080 


5090 
E 


AT 


INT 


EY 


Sog9s 


3100 


00 


53200 
HE 


HE 


PRINT : PRINT "GANDALF CASTS A SPELL AND THE GATES": PRINT : PRINT "ARE DE 


LISHED. * 
M = M + 2000 
N = INT ¢( RND (1) *¥ 10) + 1:2: IF N ¢ 2 THEN 5100 


PRINT © PRINT "THROUGH THE GATES RIDES THE NAZGUL.THE": PRINT : PRINT "NIN 
MEN WITH RINGS QF POWER. THEIR": PRINT : PRINT "CAPTAIN SCREAMS AND CHARGES 
THE ": PRINT : PRINT "COMPANY. THE QTHER EIGHT FOLLOW AND THEY": PRINT : PR 
"SLAY THE WHOLE PARTY.": PRINT : PRINT : PRINT : PRINT : PRINT "PRESS ANY K 
TQ CONTINUE"”S; 


GET AS: GOTQ ¥000 
PRINT : PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE"; : GET AS: GOTO 6 


.e] 
HOME : PRINT "YOU TRAVEL UP A DISUSED TUNNEL LEADING": PRINT : PRINT "TO T 


CRACK OF DOOM.SUDDENLY AN ": PRINT : PRINT "ENORMOUS SPIDER LEAPS OUT QF T 
DARK": PRINT © PRINT “AT YOU.LEGEND SAYS THE SPIDER [S CALLED": PRINT : PR 


""SHELGB’ AND IS EXTREMELY DANGERQUS." 


PRINT = PRINT "WILL YOU FIGHT OR RUN ? "3: GET FS 

PRINT 

IF FS = *F* FHEN S270 

IF FS = "R" THEN 5240 

GoTo S219 

HOMS {$f =- ENT ¢€ RND (1) ®% 10) # 13 fF S&S £€ 3S THEN 3260 

PRINT "THE SPIDER SHOOTS A HUGE WEB AT THE ": PRINT = PRINT "PARTY AND YOU 
RE CAPTURED TQ BE EATEN": PRINT = PRINT "BY SHELOB.”: VTAB 22: PRINT "PRESS 
NY KEY TO CONTINUE"$: GET AS: GOTO 7900 

PRINT : PRINT "YOU RUN DOWN THE TUNNEL,TQ THE EXIT.": VTAB 22: PRINT "PRES 
ANY KEY TO CONTINUE": : GET AS: GQATO 6000 

HOME : PRINT "ARAGORN AND YOU ATTACK SHELOB.": PRINT 
M= M + SOO 
C = INT ( RND (1) ¥* 10) + 1:5 = INT ¢€( RND (1) * 10) + 1 

IF C°< 3S THEN 3270 

GOTO S206 

PRINT "GANDALF SHOUTS *ANNON EDHELLEN’ AND ": PRINT : PRINT "SHELOB SHRIVE 

AND DIES.": VTAB 22: PRINT "PRESS ANY KEY TQ CONTINUE"$;: GET AS: GATQ 6000 


PRINT = PRINT "YOUR "3WS3" DOES TREMENDOUS DAMAGE TO": PRINT : PRINT "SHEL 


°"S EYES.FINALLY YOU SHATTER IT’S": PRINT : PRINT “HEAD.": VTAB 22: PRINT “P 


SS ANY KEY TO CONTINUE": * GET AS 
HOME °° PRINT "ONCE IN MORDOR, YOU QUICKLY FIND THE": PRINT : PRINT “CRACK QO 


DOQM.STANDING BEFORE IT IS": PRINT =: PRINT "SAURON,HIMSELF. THE PARTY IS FAR 


IZED": PRINT : PRINT "BY FEAR." 


PRINT ©: PRINT "WILL YOU FIGHT OR SURPRENDER TO SAURON ?"3: GET FS 
PRINT 
IF FS® = "F" THEN 6100 


IF FS® = "S" THEN 6059 
Gata 6010 
HOME : PRINT "YOUR PARTY IS TAKEN PRISONER AND THE": PRINT : PRINT "RULING 


ING IS CONFISCATED." 
IF I$ = "RING" THEN 6065 > 


: \ & f 
. . a) i ; 


j LORD OF THE RINGS 


R | 6062 GOTO 6070 
o 6065 PRINT : PRINT "THE DWARF RING FROM MORIA IS ALSO": PRINT : PRINT "TAKEN.? 
6070 PRINT : PRINT “BEFORE YOU APE EXECLITED YOU ARE FORCED": PRINT : PRINT "Ta 
SE 
E SAURON ARISE TO CONQUER": PRINT : PRINT "MIDDLE-SARTH.": PRINT : PRINT : 
PRINT 
"PRESS ANY KEY TO CANTINUE":: GET AS! GOTO 97O0 
6100 HOME : IF I% = "PING" THEN 4159 
6110 M=™M + Sa00 
6120 GaTa 6200 
6150 PRINT "YOU REMEMRER THE PING YOU! FOUND IN ": PRINT : FRINT “MOPTA.YOU SHCU 
IN A STRANGE TONGUE": PRINT : PSINT "TNAUIE AN EDPAITE AMMEN?” 
6160 I = INT ( RND (1) ¥* 10) + 1 
6165 IF I ¢< S THEN 4169 
6167 PRINT : PRINT "SAUIRPON LANGHS AT YOU AND BLASTS YOU "i PRINT : PRINT "WITH 
Lz 
GHTNING BOLTS. "! PRINT : PRINT : PRINT "PSESS ANY KEY TQ COMNTINUE"3: GET AS 
: GOTO 
9000 


ae 6169 M = ™M + 1000 

at 6170 PRINT : PRINT "AS vou Sav THETS SAUPON WITHERS AND "2 PRINT © PRINT "DIES.: 

\ oe au 

\ t ARE FREE TO DESTROY THE PING. ": S@INT = PRINT © PRINT "PRESS ANY FEY TO CO 
NT 


INUE":: GET AS: GATN 7090 
6200 PRINT "QVERPCOMING YOUS CEAR, YO!!! AND APAGTE YY") PRINT 1 PRINT "“ATTAC!: SAURBON 


E RETALTATES WITH ROL SS": PRIS of PRIRT "OF Ibe TING.” 
6210 IF GAS = "DEAD" THEN 6230 
6220 PRINT *° PRINT "GANPALE TRIES Many cue 7G DESTAS "3: FRIWS = PRINT “SAURO 
BUT NONE SFEM TT WORK," 
6220 S = INT ( FPND (1) *% 25) + $3 IF GA 
6235 IF & ©“ & THEN €2°5° 
6236 M= M+ 1006 


1 


"DESD" THEN 62490 


62490 DUS ae 3 AEN 6229 

6743) M=M + 2000 

6297 GOATA 6250 

6250 GATTO 414°? 

62°59 PRINT 

67460 I= GAG = "DEAD" THEN 62°70 

6265 PRINT "THE COMBINED ATTACK OF ARAGGRN, OL AND “: PRINT : PRINT "GANDALF IS 


Q0 MUCH FOR SAURON.HE IS": PRINT : PRINT "DEAD. YQU CAN NOW DESTROY THE RING 


GOTQ 6300 


6266 RETURN 
6270 PRINT "TOGETHER YOU AND ARAGORN DEFEAT THE ": FRINT : PRINT "DARK LORD. WEL 


DONE.YOU CAN NOw DESTROY": PRINT © PRINT "THE XING." 
6300 PRINT : PRINT : PRINT = PRINT "FPREES ANY KEY TO CONTINUE";: GET AS: GOTO 7 


.e) 
700G HOME : PRINT "FRODO GIVES YOU THE RING TO DESTROY" 
7010 PRINT : PRINT "WILL YOU DO IT ? "5: GET OS 
7020 IF Of = "N" THEN 7099 
7025 Q = INT ( RND (1) *% 10) + 1: IF O <¢ 3 THEN 7090 
7027 M = M + 1000 
7030 PRINT ; PRINT "YOU GAZE,.INTO -THE CRACK OF DOOM AND SEE": PRINT : PRINT "GR 


N FLAMES AND LAVA WITHIN. YOU TOSS": PRINT : PRINT "THE RULING RING IN AND W 


CH .IT MELT.” 
7040 IF I8 = "RING” THEN 7050 
7043 GaTo 7300 
7O50 PRINT : PRINT "AS THE RULING RING MELTS, THE DWARF-RING": PRINT~-: PRINT "FR 


MORIA GLOWS AND DISAPPEARS.": GOTO 7500 
7090 HOME : PRINT "YOU FIND YOURSELF UNABLE TO PART WITH": PRINT : PRINT "THE R 


o.°* 
7O95 ES = "vy" 
7O99 PRINT 
7100 PRINT : PRINT "YOU TAKE OVER THE FORCES OF MORDOR AND": PRINT : PRINT "PRO 


AIM YOURSELF THE NEW DARK LORD": PRINT ©: PRINT : PRINT "HAIL "3;N%35",LORD OF 
VIL.": PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET AS: GOTO 760 


7300 PRINT 

7500 PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE”"5$: GET AS 

7510 HOME : PRINT "WELL DONE, ";NS3".” 

7520 PRINT : PRINT : PRINT "YOU ARE A CREDIT TO ";RSS;3" EVERYWHERE. ” 

73530 PRINT PRINT : PRINT "AS A REWARD, ARAGORN (WHO IS NOW KING OF": PRINT : P 


RINT 
"GONDOR) GIVES YOU "5;M;" GOLD": PRINT : PRINT "PIECES FOR YOUR CONTINUED BR 
AV 
ER Ys" 
7600 PRINT : PRINT : PRINT © PRINT ©: PRINT "DO YQU WANT TO PLAY AGAIN ? "3: GET 
A 
s 
7610 IF AS = "¥" THEN 5S 


7620 HOME : SPEED= 255: END 


The object is to enter a maze of 
caves, acquire the golden idol 
and return. 
Along the way you may pick up 
objects which will help you. For 
example the rope must be used 
to swing across the crevices 
and the shield is protection from 
the darts. Gold is used to buy 
maps. Torches and elixers fend 
off monsters. 

On the map black indicates 
a wail and cannot be passed. 

When darts are being fired at 
you, defend yourself using Pad- 
dle (O) to move the shield. You 
must knock out 4 of the 7 darts. 
When in battle with a monster 
use the key ‘p’ to bash him and 
‘s’ to shield... 


Mike Bantick 
Mount Beauty Vic 
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igo ram To = 2? Ta 45 VIAR Ts UTA 1s PRINT " "3 VTAR Ti HTAR 30% PRINT " " 
220 NEXT 

250 NORMAL | VTAR 2) HTAT Os PRINT " EXPL ORE RS i 


210 VITAE 7S TRINT " THIS WILL TAKE APPROX’LY Sh SEC wee ee ee” 


340 VTA ids FRINT ” CROATING MAZE 

270 Mom POG = Fe 

360 I fe = 7 THEN Vo POS = 1tx = 20%) = 1 

400 TKYU,S) = Gif) = INT C2 wR RN C1)) 4 8 IF Ty = 1 ANT Fo = G THEN S = S 


is GOTO 490 

4v0O TP hm. = 7 ANTE Ty = 7 THEN GS = SG t 1 
42G TY Ty = P THEN Yeo i 
400 TF Ty - & THFN Vos Vo4 jj 
- 0 THON 410 

BOQ TR Gow 429 THEN €410 

SYO Th Vox O THEN Vos 4 

BQ FP Vos 26 TREN Vo= 3& 

ae GOCE 4900 

INT (C38 ® KNIT C4)) 4 1 


£440 TOR J = 1 TO 4008 = TNT (38 & RANT CJ) 4 1G = 


se Vy) a 


640 VTAMN Ths PRINT TARC T 4 2)"," 
é7Q NEAT 
7OO KOM PFLACE OBJECTS. .6ee 


720 FOR I = 1 TQ 100 


760 Te = TNT (38 ® KNEE C10) 4 48S = INT (38 & RN C12) 4 18 TF WS) = 2 TH 
EN 760 

7°90 IWTyS) = 2) NEXT 

820 For I = 1 TQ 70 

850 Tt = INT (38 ® RNE C1)) + 13S = TNT (38 & RN (1)) 4 15 IF [C,S) > 1 TH 
EN 850 

BBO DC DNsS) = 3 NEXT 

9710 FOR I = 1 TO 50 

940 TD = INT (38 & RN (C1)) 4 13S = INT (38 & RN (9)) 4 1s TF CDS) > 1 TH 


EN 940 


970 [tCfyS) = 43 NEXT 


1000 FOR I = i TO 40 


1030 Tr = INT (38 ® RNM ¢1)) 4 48S = INT (C38 & RN C1)) ¢ 1s TF WCMN,S) > 1 T 
HEN 1030 


105? Ws) 


i 
oO 


1060 TTtyS) = Ss NEXT 


10°0 FOR I = i T@ 10 


i420 Te = INT (38 & RN Cid) + 165 INT (38 4% I €19) 4 22 TF BS) & oT 


HEN i120 


iSO ThetyS) = 6 NEXT 


180 FOR T = 1 TQ 3 


i210 The = INT (28 & RANT C9) 4 15S TNT C28 & RN CHD) + TS TR Mt, S) & 1 T 


HPN 240 
j240 MWNy,S) = 7 NEXT 


i270 REM fo SECONTES 


i400 FOR T = 1 TO 2006TI INT (38 & RANT Ci) $F G6 = INT Cah RK RNA Cid) 4 
isFo- INT ¢€& & RANT C10) 4 & 


j420 Te tty S) Ps NEXT 


1460 FOR J 7 TO 14% REAM CaO T)2 NEXT 


iZEO TATA GOLTOSHTEL Is TORCH ROPE EL TXER » SANTty TRAM KR MAR TS s TRONS »WUP yl OP TROP s C 
REV TT. 


1420 WOME § ON IXY) GOTO L450 1L9S0s 1930s FPSO x IPAs IG Ry IVADy P71 Oy 70007 34709 4% 
&7 0% 467095440 


1420 RESTORE 
1450 PRINT ¢ FRINT | FRINT “YOU CAN MOVE eee vees LIVES “silk 


1460 IF LF « O THEN CNS 


" 


i480 NORMAL 
i200 ER = 0 
i510 ITF WX + fsY) > O THEN PRINT $ PRINT "FAST" = FY 
i540 IF xX isY) = O THEN PRINT $ PRINT "WEST" CFP = PPo4 4d 


1570 IF WXsyY 


1) > O THEN PRINT $ PRINT "NORTH"SPF = Pr 4 4 


i400 IF I xXs¥ 4 1) > O THEN FRINT $ PRINT "SQUTH" SPF = FF + 4 


1410 IF FS = 1 ANT PF = J ANT! SM = 1 THEN FRINT ¢ PRINT "OH ! NO! A TEAM ENT 
SASS SSQUIGHSSSS///" LE = LAR OUINT CS & ORNT 


C1)) 4 1tSF = 0 


143 PRINT $ PRINT $ PRINT "WHICH “NsEoWsS’ "5% INPUT AtS IF AS <= > "N" ANT! A 
#2 3 "S" ANTE At <= > "EE" ANTE AL < > "W" THEN 


PRINT $ FRINT "YOU MUST MOVE": GOTO 1450 


1460 IF As 


"N" ANTI IXsY - 1) O THEN PRINT $ PRINT "OUCH": GOTO 1450 


O THEN PRINT $ PRINT "GUCH"’ GOTO 1450 


1690 IF A$ 


"S" ANT I X»¥ + 1) 


48 


GOTO 2170 


1720 «#=IF AS = "E" ANT TCX + 15Y) = O THEN PRINT $ PRINT "OQUCH": GOTO 1450 
1750 IF At = "WwW" ANT IX - t»¥) = O THEN PRINT $ PRINT "OUCH": GOTO 1450 
1780 IF AS = "N" THEN Y = Y - 13 IF Y = 1 THEN 10000 
1810 IF At = "E" THEN X = X 4 1 
1840 IF At = "W" THEN X = X - 1 
1870 IF At = "S" THEN Y = Y 4°13 IF PS = 1 ANT Y = 38 THEN 12000 
1°00 GQTQ 1420 
1970 HOME $ PRINT $ FRINT "THERE IS A "ssCOCICXY) 5". TO YOU 
19460 FRINT $ PRINT "FICK IT UP CF) OR LEAVE IT (CL) "5% INPUT ASS IF AS < > "L 
"ANT A} = > "FR" THEN 1930 
1990 If Ay "EL" THEN PRINT § PRINT "QR !! "SC¢CICXsY))5" LEFT "“$ FOR IT = 
1 TQ 3000! NEXT | GOTQ 1450 
2020 Me = CECI xXsY)) 
20090 PRINT § FRINT "QKH !! "tits" PICKED UF 
P2080 FOR T= 1 TA 308 TF ACT) "" THEN AGC T) = Tes COTO 2140 
PIO NPXT Ts PRINT § PRINT "YOUR HANTS ARE FULL" $ COTA 1960 
2149 I Xs) 1s IF me "GOL" THEN GQ = GO 4 100 
P70 Wl o= OG = OF FOR JT = 7 TQ 108 IF Ase T) = "" THEN 2270 
PISO Te = ACTOS TF Tt = "GOL" OR Td = "SHIELD" OR 1% = "SANTI" THEN WE = WE + 
190 
jen IF Td = "CAL" THEN GO = GA + 100 
2390 IF Te = "TARCHK" THEN WO = WE 4 30 
2200 TF Te = "ROPE" THEN WO = WE + 30 
2PiG IF Te = "ELTACR" THEN WO = WE 4 10 
2°79 NCUXT 
2290 FOR T = 3 TG i800) NEXT $ HOME $ FRINT " INVENTORY coeeeeves 
eae PRINT & PRINT 
2250 TOR T= J TQ 10% IF AsCT) = "" THEN 2410 
2280 PRINT § PRINT AGCT) 
2430 WNUXT 
2440 IF we 200 THEN 2500 
2470 FOR T = 3 TQ 20003 NEXT $ COTO 1420 
2500 (RINT $ FRINT "TO HEAVY..WHICH DQ YOU WANT TO DROF "53 INPUT A$: FOR I = 
1 70 10% IF At < » ALCT) THEN NEXT I$ PRINT 
> FRINT "YQU TONT HAVE "sAS! GOTO 2290 
25930 If At = "GOLI" THEN GO = GO - 100 
2660 ASCT) = "" 


2710 


2740 


HOME $ 
PRINT 


ING FQST 


2779 
2800 
2630 


2060 


2160 GQ = GQ - 
Q 700% 


CRINT 
CRINT 
TF GO 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
Ty AS 


IF AY 


NOXT 


3170 FY = 2 


3190 


raR J 
Ty FY 
NCAT 
Ir Aw 
Iv Aw 


Iv As 


A= Yd 


rOoR J 


IF MT 
COLOR= 
PLOT I 


GOT S¢ 


PRINT "XKKKKKXKXKEKKAKK KARE KKK KKK KEK KK ERK” 


oF K"S PRINT "x 
kK"? PRINT "X 


x" 
"XK KEK KKK KKK KKK RK KKK KKK KKK KKK KKK KEKE" 


; PRINT "YOUR TOTAL GOLT ="5G0 


= 0 THEN FRINT $ FRINT "YOU FQOR REGGER «ee.eeee" 
P PRINT "ssseceseseesI TENS FOR SAL Csssssceeneusne 

$ PRINT 

"CA MAPELE oo ee 100 G/F 

S PRINT "CR) MAREI> --------- 200 G/F 


! PRINT "(C) SACK OF SANT --- 200 G/F 


PRINT "CTH SLIP Gees ew hs 200 G/F 


oe 


PRINT "(E) NOTHING ------.-s5= G/F 


oo 


> PRINT $ PRINT "WHAT IS THE ONE THING YOU WANT "5% 
= "E" THEN 3410 


= "A" THEN GO = GQ - 100SFY = 1% GOTO 3190 


GOTQ 27710 


200; IF GQ = 0 THEN GO = GO 4 2008 PRINT "NICE TRY" S 


GATQ 3630 


JNEUT AG 


= 3 TQ 10% JF ASCT) = "GOLT” THEN ACT) = ""SFYU = FY? fT 


= 0 THEN 3710 


= "A" OR At = "RB" THON GR t GATO 2340 
= "C" THEN RG = "SANT" 


= "NR" THEN LF = LF 4 ais IF LF > 10 THEN LF = 10 


i! 


1 TQ 108 IF A&tCT) = "" THEN ASCT) = KEE GOTO 34610 


PRINT 


oo 


fa 
on 
= 
a 
Q 


1 THEN G = 1 


ww 
co 


&$ IF F > 38 THEN F = 


oO 
oo 
— 
baa] 
aa 
‘, 


1 THON E = 1 
6: IF A > 3& THEN A = 38 


= G TQ Fi FOR U = E TQ AS IF AS = "BR" THEN COLOK= 


»9U) > 0 THEN COLOR= 3: GOTO 3550 
0 
9US NEXT UeI’$ COLOR= 15% PLOT X+Y 


$ GET S$% TEXT $ HOME $ GOTO 3610 


FRINT "YOUR HANTS WORE FULT CSORRY) "4S GOTO 3410 


IC TeU D8 


Pak 


TRATI 
‘ee ae | 
GOTO 355 


i MS 
ee ey eee 
near 


4420 


4450 


4469 


4510 


4540 
To 2 


u7 9 
LF 


4400 


4439 


410) 


LEO 


4720 
2 AT 


47D 


4769 


S&S AT 


4040 


4670 


( 


200 


HO 20 


49°60 


6S 90 


3020 


TODO 


s0SO 


yiiO 


91490 


9170 
IN 1 


5200 
P 


5230 


FOR I = 1 TO 200% NEXT 
GOTO 4770 
VTAR 21: PRINT " ENGAGE... i 
ZF = INT (3 ® RANT €1)) 4 1% ON ZF GOTO 4630549305 5070 
If SM 1 THEN HOME ¢ PRINT ” YOU HAVE TF CATCNM THE "slits FOR IT = 1 
OOO! NEXT the xX+Y) = 1 TEXT ¢$ HOME ¢$ GATO 
1420 
Ir SY < 2 THEN HGRA ¢ PRINT * YOU HAVE BFW DPPEATOT “RAT LUER IE" Sti = 
1% GOTO S290 
GOTO S020 
COLOR- 0: FOR J = if TQ 20% HLIN 23526 AT TS NEXT I 
on = Oh 4 ft 
Ty gH 2 THEN 4780 
COLOR} SS HLIN 20,521 AT 205 VETN isydO AT 215 VEIN Laysits AT 2ee VEIN ited 
25s VLIN Iiesig at 24 
GOTO 4619 
COLOR- GF HELIN 205271 AT 270% VLIN TO,19 AT 2?) VEIN idsi7 AT 2AasS VEIN 1451 
24% VLIN 14515 AT 253 VLIN 2513 AT 252 VLIN 
J2,12 Af 26 
Ir Gh = 2 THEN St = OF GOTO 4670 
FOR T = 1 TQ 200% NEXT + GOTO 4540 
mrecVv sc > 2 THON SY = SY - 4: FOR T = 1 TO 1OtKF = FEF €49200) ¥ FOFK 
E2260) NOXT 
GOTO 45490 
COLOR- Of FOR T = Fi TO 20% HLIN 241926 AT Tt NEXT JT 
COLOR- GS HLIN 2092? AT 204 VEIN 143,19 AT 2? 
GOTO 45490 
ZZ = FLEK ¢ 1g384)% IF 27 = 208 THEN CV = I 
IP Z7 = 211 THUN CV = 2 
IF CV = i THEN Si70 
Ir cv «= > 2 THEN CV = 0% GOTO 4510 
COLOR= 2) HLIN 26227 AT 19% VLIN 13538 AT 26% GOTO 4510 
COLOR= 115 FLOT 275183 HLIN 25226 AT 17% PLOT 255172 VEIN 14517 AT 248 YL 
291% AT 228 VLIN 12513 AT 2? 
IF ZF = t THEN FOR IT = 1 TO 108GH = PEEK ¢€ - 16336) 4 FEER ¢ 16334) 
EEK ¢ 49200)$ NEXT :SM = SM - 1 


FOKE - 16368%0;CV = 0 


wae nec AR IR Ch nage ee 


3610 FOR I = 1 TO 2000: NEXT $0 X»Y) = 1$ GOTO 1420 

3670 HOME $ PRINT " MONSTERS - 

3/00 PRINT.” (0 ) 

3730 PRINT ¢$ PRINT $ PRINT $ PRINT " PREPARE YOURSELF ANID USE.... 

37690 FRINT $ PRINT $ FRINT " ¢€S) FOR SHIELD 

3790) =FRINT $ PRINT "— (CF) TO STRIKE 

3820 FRINT $ PRINT "tO YOU WANT TO USE AN ELIXER»OR TORCH " 

2850 PRINT $ PRINT "TO DCFOND YOURSELF ¢CsT OR N ’ NONE? ) "St INF UT AGtSM = IN 
TCi4 * RAN C9)) 4 SISSY = INT (8 & RANT C1)) 

4 3 

JHREO Te = CACIiexsY)) 

2°10 TF A& "W" THON 4100 

3940 If A% "CE" THEN 4020 

3970 FOR IT = i (0 j0% IF AtcT) "TORCH" THEN NEXT Tt PRINT "YOU HAVN’T GO 
TA TORCH" S GOTO Z8?0 

3980 ALCT) me 

4090 GOATO 4040 

4020 FOR Y = i TO 10% IF ACT) "CLIXFR" THEN NEXT It PRINT "YOU HAVN’T G 
OT AN CIYAPK"S GOTO 2e20 

4040 ALC T) mee 

40690 JF le "WUP" ANTE At "T" THEN PRINT $ PRINT "TORCH LOWFRS WUF’S CONF IT 
CENCC "8SNh = GH - 2 

ny os Ie = "TRONG” ANID @% = "C" THON PRINT $ PRINT "ELIXER ACMECTS TRONS" 
sGhi = Gh: 2? 

4i20 FOR T = 1 TQ 20008 NEXT > 
41590 GR : COLOR= 1$ VLIN 12527 AT 30 VLIN 17524 AT 29 

4180 VLIN 16522 AT 285 VLIN 22515 AT Sis VEIN 1? 515 AT 2B HELIN 2229 AT 275 C 
OLOR= 15% FLOT 28513 

4210 HLIN 275929 AT 20% PLOT 29519 

4240 GS = 10 

4270 $ COLQR= 0: FOR IT = iS TO 27: HLIN S - 1055 4 5 AT I$ NEXT $5 = S 41 

4300 COLOR= 6: HLIN S& 1058 3 AT 263 HLIN S - 7eS - 2 AT 258 HLIN S - 39S 4 

2 AT 243 VLIN 20923 AT S 2s VLIN 1952%.AT S 

1$ VLIN 18527 AT S 
4330 VLIN 17527 AT S 4 18 VLIN 17923 AT S + 23 VLIN 15223 AT S + 33 VLIN 15523 
AT S + 43 VLIN 15918 AT S 4 Si HLIN S + 298 4 
4 AT 27: COLOR= 15% FLOT S + So1é 

4360 VLIN 21523 AT S$ PLOT S + 1521 
4390 LF S = 15 THEN 4480 


yv260 GOTO 45190 
5290 FOR I = 170 10% IF AtCI) < > "" THEN S350 
US20 WEXT § PRINT §| FRINT "YOU HAVE NOTHING WORTH STEAL ING "ys 
5250 PRINT ¢ (RINT "THE "“sltts" HAS STOIEN YOUR "sAdCT DS IF AGCT) 
GO +> GO 100 
i460 AYCT) = "8 
o48O TOR JT = i TO 2000 NEXT ¢ TOXT § HOME 
3410 WX+Y) = 2s GOTO 1420 
7449 (FOR To= 3 TO 108 If ager) = "RAPT" THEN AMCT) = ""F GOTO Gis 
S479 WEOXT 
“900 hOnt + PRINT " CREVICE 
oO TRINT § PRINT ¢ PRINT " Oly }! NO TI eee CARGHEEEEEEE THEE 
TO 2OUCKE = POEW ¢ 14%34) 4 FCPR ¢ L4424 

Y4 FECWK €49200) Peri ¢ LOAAG VS NEXT 
cu4O LF = Le j 
satin Par i TQ 1000) NEXT | GR & CALOK= 6 
sooo “Tam T+ 20 TO SOs MEIN O+ INT (CS & KN CE)) 4 17 Af Ts WIN 
NM ¢3)) Pay Ao AL Tt NOXT 
ae XM TEYY = at 
94500 COLOK- Of FOR I = YY a 10 YY 4 6s Uh TN AX 4ysxxX 4 4 AT TS 
S609 CALOR- 7 HELEN Xx Je XX 7 AT YY 44 PLOT xXx “vYY 3s 
Kae AT OYE ee HELIN XX¥sXX 4 Ld AL YY ds uit an 

AXNeAR 4 GT ALT VY 
iO PLOT EX 4 Se V¥ it HELIN XX 4 SoXR 4 4 AT YY 
0740 COLOR} 2s PLOT xX YY 4, COlLQR- 10 
S770 WEIN XXeXX 4 3 AT YY 4 Tt PLOT XX 4 Ss VY 4° 28 WLIN XX - DyXX 
LOT xX*eYY 4 2 
elOO TF XxX = 20 THEW YY = YY 4° 72 FRONT “ARGUE HHEHEY § GOTO Se8 
U820 XX = XX doi 
JU6o0 IF ¥Y¥ = 33 Min Se2o 
UhSO GOTO S40 
S9?0 TEXT $ HONE | VTA TO! PRINT " SPLATTTTT !!!! 
OR I = 41 TQ i000) NCAT I 
Nees rok T= 1 TQ 108mr -~ ING (1d * RN C1)) 4 28 IF ASCH) < 
5980 WOXT § GOTO 6280 


GATO S380 


= "GOIT! THEN 
0 
HYs FOR I= 4 
INT (5 * OR 
NEXT 
HLIN XX - i+X 
aT YY 4 ser 
«9 
+2-F 
> "" THEN 604 


eR ON wei 


6010 PRINT $ PRINT $ FRING "YOU HAVE LOST YOUR "sAdC DT) 
6040 If Asc nr) = "GOLT" THEN GO = GO - 100 

6070 Adc DIF) = ""$ FOR IT = 1 TO 20008 NEXT 

6100 GOTO é62h%o 

6130 WOM + PRINT $ PRINT " Oot! NO wee A CRAVICE 
6160 FRING § PRINT "LUCKY YOU RAD THAT PIECE OF KROFFT TO" 
G1i9O PRINT & PRING "SWING ACROSS WITH eevee seee”™ 

GP20 ACT) = "" 

62090 FOR JT o= i 1G Su008 NEXT 

6200 IMX»sY) = 15 COTO 3420 

7OOO REM TARTS 


7OIO NOME ¢ PRINT & PRINT 


POISON HARTS: 


7OYO PRINT § PRINT § FOR Yo = 4 TO 108 Th ASOT) © oe "SHIP! THEN WP XT § PRIN 
Tos PRIN "GH TAK... YOU HAVEN’ © Got A SHAT TT 


"S$ GOTO 7500 
7025 ascT) =" 


7OZO GR $ COLOR] 43 FOR T = 0 TO 29) TL IN OF 89 AT Ti NEXT § COOK 6) POR Ts 
ig TO 223 VLAN 345937 AT It NEXT 


te 


7OSN COLOK= OF PLOT 209348 COLOR OF PLO Bay ans PLOT 175 oo 


7040 GS =» 20% FOR T= 1 TO 7sCCL) = INT CIO KR RAM CL) 4 LEPC TL) = INT CO & 
RNG Ci )) + TOS NEXT 


7O4aN PP ws O 
7046 Gf & O 


7ON0 COLOK= 45 WEIN & - i+6 4 2 AT SOUGE = PM €O) 4 BA 4s A GFo8 G TheN S 
ne | 


7060 If GF > & THIN G&G = GS 4d 
7070 COLOR= 145 WLIN GS - dyS 4 i AT 4O 


7O8O FOR I = i TO 7S COLOR! 42 PLOT POP eCCTECOT) = CC) 4 48 IP CCL) = BA Th 
“CN PRINT " OUCH tt 


"srr = PRA assor = Se dt asMeer) = OCC) = O 


iss PLOT PCT sCCT)S IF SCRNC POL eCOT) 4 1) = 24 THON POL) = OFC 
$i 


7100 If ST = 7 THEN 7400 
7ii0 NCXC It GOTO 7050 


7400 If TF > 3 THEN FRINT §$ PRINT " Oli 8! TAR THAT HURT. coe eee eer enn nes 
GOTO 7500 


7410 (PRINT $ FRINT " SISSSIIAISAVEDSSS//// "3 FOR T = 1 TO SOO00$ NEXT ¢ TEL 


: oS pRaaaaabataaPM ENE Ne a Tet thee 2 Cac CC a aE al 


XT 3 HOME 1OXsY) = 1 

7420 «6©GOTOG 1450 

ces rol T= i TO 10$ur = INT (10 8 RAT Ci)) 4 ab Wo ager) <>" THEN 752 
7510 WEXT $ PRINT § PRINT "NOTHING WAS TANAGCITIO...."$ FOR I = 1 TO 100% NEXT 
! GOTU 7410 

7520 PRINT ¢ PRINT "THE “$469CT 5" WAS DAMAGE TO BCYONTE REGALO” 

7530 Ile ~ Asc sagen) = 0" 

7540 If Ile = "GOLT" THEW GO = GO - 100 

S50 LF = iF - 4 

690 FOR I = i TO 2500! NEXT $ TEXT $ HOME SCX, Y) = 1$ GOTO 1450 

10000 RESTORC $ HOME § TRING $ PRINT "CONGKATUL ATIONS YOU ARE HALE WAY ee ee eee” 
100i0 TUR I = i TO 10$ If AgCI) = “SANTO! THEN 10100 

10020 NEXT $ PRINT $ PRINT "OH | GOlt YOU TUN’ T HAVE A SACK OF SANT” 

10020 PRINT § PRINT "TO TUT IN PLACE OF THE Inak..You CAN 

10040 PRINT $ PRINT “HEAR a RUMI ANT A CNORMQUS STONE 

10050 PRINT § PRINT "SPHERE IS hOLLING WOWN AT You...0 NOT ” 

10060 PRINT $ PRINT “RUN INTO @ Tan CNT OR YOU Will Er” 

10070- PRINT ¢ PRINT "SQUISHIT cece es 

10075 SI = i 

10020 «GOTT 10170 

10100 PRINT $ PRINT "YOU NOW HOVE THE GOLTIeN Ina sa try To” 

10120 PRINT ¢ PRINT "TRY TQ MAKE IT RACK TO THE CNTRANCE 

10in0 rs = i 

10ici Ok I= 4 TO 2h$ TOR U = 1 TO Zt Wo mi,U) > @ THEN 104%% 

10i%2 MT,U) = 0 

10i5% WNCXT tT 

10140 GOTO 3280 

17000 HOME $ PRINT $ PRINT "WEEL TQWN 2sss2:e5 

iPOiO0 PRINT § PRINT “YOU HAVE SURYTYCIY S47 7/7 a 


ST ' 
REM TIME PILOT 
HOME 
FOR I = 1 TO 233 READ Ni POKE 


769 + IyN$ NEXT 
LATA 173748919291369 20895 
92069193924099920292089 24591 
74909397692939969090 
Lil) = SsL¢2) = 28103) = 13L¢4 
)= 63L¢5) = 3 : 
T(1) = 19108T(2) = 19403T(3) = 
1970:1(4) = 1983:1(5) = 2001 


3 

SH = 4 
TEXT $ HOME 

IF V > 5 THEN V = LLL = 
33 IF LL < 5 THEN LL = 
POKE —- 1630490! POKE 
0290: POKE - 1630070: POKE 
~ 1629890: COLOR= L(V) + 20 


= INT (30 & RND(1)) + 5 
YY = INT (30 & RND (1)) + 
I = 0 TO 393 VLIN 0947 AT 
NEXT I 

= 0 
= INT (30 & RND (1)) + 53 
INT (30 & RND(1)) + 5 
1:SX = 1 

INT (20 8 
TO 350 


RND (1)) + 


v ¢ 
~% 


wet 

Wu = 
x< 
+ 
wo 
x< 
of 
~< 

wow 


X 

Y 

Y =f 
I/3= INT (I / 3) THEN 
OKE 768L(V) & 103 POKE 76 
97; CALL 770 

xT I 


< 
> 
/ 


FOR I = 1 TO 15005 NEXT I3 
+ HOME : VTAB 10: HTAB 18; 
"YEAR": INVERSE ¢ VTAB 12: 
183 PRINT T(V)$ NORMAL 

FOR I = 1 TO 1500: NEXT I 
GR 

IF RS = 1 THEN RS = 0: GOTO 
170 
NU = 39 

COLOR= L(V) + 13 FOR I = 0 TO 

393 HLIN 0939 AT IS NEXT I$ COLOR 
TT = LCV) +1 

FOR IT = 1 TO 3:C(1) = OSX T) 

= O03 NEXT I 


RK = 4; GOSUB 1000 

REM START LOOP 

FOR I = 1 TO 23 IF C(I) = 0 THE: 
240 

COLOR= TT: PLOT CCT )eZ¢ 1 )3C¢ 
1) = CCI) + BXCI)SZC1) = 21 
) + BY(T) 

IF C(I) < 0 OR C(I) > 39 OR 
ZI) < 1 OR ZCI) > 39 THEN C 
(I) = 0: GOTO 240 

COLOR= 9: PLOT C(I )sZ(1) 


TEXT 
PRINT 
HTAB 


TIME PILOT 


This is an action/low resolution 
program for the Apple Il. You 
control an aircraft able to travel 
through time zones and en- 
counter a variety of enemies in 
each zone. 

Starting in the year 1910 you 
battle the bi-planes that zoom 
from all directions. Use the 
arrow keys to rotate the jet 45 
degrees in any direction. Pres- 
sing the space bar fires missiles 
(missiles? in 1910? Ed) unless 
there are already two missiles 
on the screen. 

Each time an enemy aircraft 


240 NEXT I 


245 


IF BG = 1 THEN GOSUB 4000 


246 TK = SH 
250 FOR I = 1 TO 33 IF X(I) = 0 THE 


GOSUB 2000: GOTO 300 


260 COLOR= TT: FOR U = Y(I) - 2 TO 


YCIT) + 28 HLIN X( 1) - 39X(T) 
+ 3 AT US NEXT U 


265 X(I) = X(T) - SX + SXCIDSYCI) 


270 


320 IF F 
330 


= YCI) - SY + SYCIDSSXCI) = 
SX(I) + RND (1) - .S8S¥(I) = 
SYCI) + RND (1) - .5 

IF X(I) < 3 OR X(T) 
YI) < 4 OR WI) > 
(I) = 0% GOTO 300 

GOSUB 3000 

FOR U = 1 TO 23 IF CCU) > X¢ 
IT) - 4 AND CCU) < XCI) + 4 AND 
ZU) < YCI) + 4 AND Z(U) > Y 
(I) - 4 THEN GOSUB 2100: GOTC 
300 

NEXT U 

IF X(I) > 13 AND XCI) < 27 ANI 
YCI) > 13 AND Y(I) < 27 THEN 
KL = PEEK ( - 16336) - PEEK 
{ — 16336)3SH = SH - 1 

NEXT I 
1 IF TK < 


> 3S OR 
35 THEN X 


> SH THEN GOSUB 10 


FF = R 

PEEK ( - 16384): POKE 

LOS PVs th -+-=-136—-T HEN 
< 


iv 


K > R=1 
~ > R THEN GOSUB 100 


7 co 


0 
IF Z = 160 THEN POKE 768550 


> POKE 769920: CALL 770: GOTO 
340 


335 GOTO 400 
3440 FOR IT = 1 T0 2: IF (I) = 0 Tk 


BX(I) = 2 ® SX3BY(I)=2% S§ 
Ys GOTO 345 


342 NEXT It GOTO 400 


345 IF R = 1 THEN C(I) = 20:2(1) 
346 IF . 2 THEN C(I) = 24821) 
347 IF R= 3 THEN C(I) = 2532¢1) 
348 IF R 4 THEN C(I) = 2432(1T) 
349 IF Rs 3 THEN C(I) = 20:2(1) 
350 IF R = 6 THEN C(I) = 1632(T) 
351 IF R= 7 THEN C(I) = 153Z2(1) 
352 IF Re 8 THEN C(I) = 1632(T) 


= 16 


400 VTAB 21: PRINT "SCORE “SC” 


410 


SHIELDING "SH" ” 
IF SH < 1 THEN GOSUB 5000 


800 GOTO 200 
999 END 
1000 COLOR= TT: FOR I = 16 TO 24 


: VLIN 16924 AT I NEXT I: ON 
R GOTO 1010%1040510707110091 
130¥1160%1190¥1220 


' 1072 


passes over your central jet you 
lose a certain amount of shield- 
ing depending on how long the 
enemy stays there. As each 
enemy craft is shot down the 
red line at the top of the screen 
recedes until you have amas- 
sed a total of 40 hits. Large 
alien craft appear at the top of 
the screen. When destroyed 
they are worth 500 points and 
transfers your jet to the next 
time zone. 


Mike Bantick 
Mount Beauty Vic 


1010 COLOR= 15:3 HLIN 16924 AT 22 
> HLIN 16924 AT 233 HLIN 17» 
23 AT 21: HLIN 1822 AT 20% HLIA 
18922 AT 193 HLIN 19721 AT 1 
7$ HLIN 19921 AT 18 
1011 HLIN 16917 AT 243 HLIN 2392 
4 AT 24 
1015 COLOR= 9: PLOT 20916: PLOT 
17¥20$ PLOT 23720: HLIN 1992 
1 AT 24% COLOR= 2: VLIN 1891 
9 AT 20 
1017 SX = O¢SY = 
1020 RETURN 
1040 COLOR= 15:3 HLIN 16922 AT 20 
: HLIN 16923 AT 19% HLIN 18% 
23 AT 18% HLIN 21923 AT 17% HLIN 
19922 AT 213 HLIN 20922 AT 2 
2: HLIN 20921 AT 23% HLIN 20 
val AT 24 
COLOR= 9: PLOT 18:21: PLOT 
19922: PLOT 23920: PLOT 2091 
7: PLOT 24916: COLOR= 2: PLOT 
21719; PLOT 22918 
1045 SX = .S3SY = - .5 
1050 RETURN 
1070 COLOR= 15: VLIN 16924 AT 17 
> VLIN 16924 AT 183 VLIN 17» 
23 AT 19% VLIN 18922 AT 203 VLIN 
18922 AT 212 VLIN 19921 AT 2 
33 VLIN 19921 AT 22: VLIN 16 
917 AT 163 VLIN 23924 AT 16; 
COLOR= 9 
PLOT 24920: VLIN 19921 AT 1 
+ PLOT 20917$ PLOT 20923: COLOR= 
2} HLIN 21922 AT 20 
1075 SX = 1:SY = 0 
1080 RETURN 
1100 COLOR= 15: HLIN 16922 AT 20 
+ HLIN 16923 AT 213 HLIN 18» 


x 


23 AT 22: HLIN 21923 AT 233 VLIb 
16919 AT 20% VLIN 16919 AT 2 
13 VLIN 18919 AT 22: PLOT 19 
~ 9193 COLOR= 9 
1102 PLOT 19%18: PLOT 18919: PLOT 
249243 PLOT 20923: PLOT 2392 
0: COLOR= 2: PLOT 21921: PLOT 
22922 
1105 SX = .StSY = .5 
1110 RETURN 
1130 COLOR= 15% HLIN 16924 AT 17 
> HLIN 16924 AT 18% HLIN 17% 
23 AT 193 HLIN 18922 AT 203 HLI 
18522 AT 21: HLIN 19921 AT 2 
2: HLIN 19921 AT 233 HLIN 16 
y17 AT 16% HLIN 23924 AT 163 
COLOR= 9 
HLIN 19921 AT 163 PLOT 2092 
43 PLOT 17920: PLOT 23520: COLO 
2: VLIN 21922 AT 20 
1135 SX = O8SY = 1 
1140 RETURN 
1160 COLOR= 15: VLIN 16922 AT 20 
+ VLIN 16523 AT 193 VLIN 18> 
23 AT 183 VLIN 21923 AT 17% HL: 
24921 AT 20: HLIN 24921 AT 2 
13 HLIN 22921 AT 22: PLOT 21 
9195 COLOR= 9 


=I 


1042 


1132 


1162 


1165 
1170 
1190 


1192 


1195 
1200 


1220 


2000 


2010 
2030 


PLOT 16924: PLOT 21918: PLOT 
22919 PLOT 17920% PLOT 2092 


3: COLOR= 2: 
19921 
oosSY = .5 


22% 


+ VLIN 16924 AT 


PLOT 18922: PLOT 


153 VLIN 16924 AT 23 
VLIN 17% 


23 AT 21% VLIN 18522 AT 203 VL) 
18%22 AT 19% VLIN 19921 AT 1 
83 VLIN 19521 AT 17% VLIN 16 
y17 AT 243 VLIN 23524 AT 243 


COLO 


COLOR= 9 

VLIN 19921 AT 243 PLOT 2091 
7, PLOT 209253 PLUI 16920; 
2: HLIN 18919 AT 20 
SX = - 13SY =0 

RETURN 

COLOR= 


15: HLIN 18924 AT 20 


+ HLIN 17924 AT 19% HLIN 175 
22 AT 183 HLIN 17919 AT 17: VLI 
21924 AT 203 VLIN 21924 AT 1 
9: VLIN 21522 AT 183 PLOT 21 


s2i: 


COLOR= 9 


PLOT 16916: PLOT 209173 PLOT 


17520: 
2: COLOR= 2% 


eOsSY = - 65 


PLOT 22921; PLOT 2192 
PLOT 189183 PLOT 


IF INT (LL & RND(1)) + 1 


= 2 THEN 2030 
RETURN 
TY = 


I) = 
osSX(1) = 135¥(1T) = 0% 


INT (4 & RND (1)) + 1 
+ IF TY = 1 THEN X(T) = 


45 Y( 


INT (30 *& RND (1)) + 


RETURN 


99 


TIME PILOT 
V 


2040 IF TY = 2 THEN X(I) = 35: YC 
I) = INT “(30 * RNE (1)) + 
5:SX(1) = - L8S¥C1T) = 0% RETURt 
2050 IF TY = 3 THEN X(T) = rN 
(30 & RN (1)) + SCT) 
SSXC IT) = OFS¥(T) = Ls RETURN 


2060 X(T) = INT (30 8 RND (1)) + 
SsYCT) = 35:SX(1) = OSC T) = 
~ 1% RETURN 
2100 FOR S =1 70 5S! IFS / 25 
INT (S / 2) THEN POKE - 1 
6304903 POKE - 16302703 POKE 
- 1629990: POKE - 16297890; 
GOTO 2105 
2102 POKE - 1630490! POKE - 16 
301903 POKE - 1630070: POKE 
- 1629840 
2105 POKE 7687203 POKE 769910; CALL 
770% NEXT S 
2107, FOR S = Y(I) - 2 TO YCT) + 
i] 
2110 COLOR= TT: HLIN X(T) - 39X¢ 
I) + 3 AT Si NEXT S3SC = SC + 
10 * V$ COLOR= 153 PLOT NU»0 


tNU = NU - 13 IF NU = - 1 THEN 
NU = 0: IF BG = 0 THEN BG = 
1:X = INT (30 & RND (1)) + 


SsY = 95 

2111 COLOR= TT: PLOT C(U)»Z(U) 

2115 CCU) = 9 

2417 X(I) = 0 

2120 RETURN 

3000 ON V GOTO 301013050 51000 31 
50» 3200 

3010 CGLOR® 43 HLIN XCT) - Lyk 
)+ 1 AT YCT) - 28 VWLIN YCT) 
- ty¥CT) + 1 AT XCT)S HLIN 
X(T) - BeXC1) + SAT YT) + 
13 HLIN ACY) ~ 3eX(1) + 3 AT 
YCI) + 2% COLOR= 0 

30OL1 PLOT X(T) + 29¥(1) + 28 PLOT 
X(T) - 29¥(T) + 2 

3015 POKE 74685 INT (5 ® RND (1) 
) + 2403 POKE 76994: CALL 77 
0 

3020 RETURN 

3050 COLOR= 12: HLIN X(T) - LyX¢ 
I) + 2 AT YCI) - 28 VLIN YCT 
)~- 1eYCIT) + 2 AT XCT)S HLIN 
X(T) - BoXCT) + SAT YCT) + 
1: COLOR= 8: PLOT X(I) - 2rY 
(1) + 18 PLOT XC(I1) + 20¥CT) + 


1: COLOR= 2 

3052 PLOT X(T )s¥( I) + 18 FOR U = 
1 TO 3: POKE 7685241: POKE 7 
69933 CALL 770: NEXT U 

3060 RETURN 

3100 COLOR= 14% HLIN X(1) - 1L9XC 
I) + 1 AT YCT) - 28 HLIN X(T 
)~ 3X1) + 3 AT YCT)S HLIN 
MCT) - 29XC1) + 2 AT YCT) + 
13; PLOT XCI)9¥(I) + 23 COLOR= 
1 

3105 PLOT XC1) - 3r¥(1) - 18 PLOT 
X(T) + 39¥(T) - 28 PLOT X(T) 
rYCT) - 13 POKE 768» INT (30 
w ORNE (1)) + 1008 POKE 76% 
10% CALL 770 

3110 RETURN 

SISO COLOR= 3: HLIN X(I) - 39X¢I 
+ SAT YI) - 18 HLIN XCT) 
~ 29XCT) + 2 AT YCI)S HLIN 
XCT) - LyXCT) t+ LAT YCT) + 
1. PLOT X(T )s¥CI) + 23 PLOT 
XCD) - Be¥CT) - 28 PLOT X(T) 
+ Se¥(T) - 2 


96 


StS5 COLOR= 9% PLOT XC T)s¥C 1) - 
23 COLOR= 5S¢ VLIN YI )s¥CI) + 
1 AT X(T): FOR U= 1 TO 33 POKE 
768990: POKE 769943 CALL 770 
> NEXT U 

3160 RETURN 

3200 COLOR= 133 HLIN X(T) - 39X¢ 
TI) + 3 AT YCI) ~- 18 HLIN XCI 
)~- SeXCT) + DAT VOI) + 23 YETI 
YODT eC) + 1 AT XCI) = 38 VLIN 
YOT)e¥CT) + 2 AT XCI) + 3% COLO! 
23 VLIN YCT)e¥CI) + 1 AT XCT 
)+ 23 VLIN YOT)¥CI) + 1 AT 
X(T) - 2 

3205 FOR U = 1 TO 53 POKE 768916 


~ U) ¥ 103 POKE 76995: CALL 
7703 NEXT U 


$210 COLOR= 11% HLIN XCI) - 19X¢ 
I} ¢ 1 AT YCL)S MLIN XCT) - 
LyXC(I) + 1 AT YCI) + 13 RETURN 


4000 COLOR= TT: FOR I =X -3 70 
X + 33 VLIN Y - 3sY +3 AT I 
> NEXT I 

4005 Y=Y +2 

4010 FOR 1 = 0 T0 33 COLOR= INT 


(40 & RND (1)) + 18 HLIN X - 
TeX + I AT Y - IS WLIN X - I 
X + TAT Y + IS VLIN Y - I» 
Y+ T ATX + TS VLIN Y - Ivy 
+ TAT X - IS NEXT I 
4012 POKE 7689 INT (30 & RND (1 
)) + 103 POKE 76997: CALL 77 


0 
4015 IF Y > 38 THEN VY = V + 13 POP 
' RATN 100 
4020 FOR I = 1 TO 2! IF C(I) = 90 
THEN 4050 


4030 IF C(I) > X - SAND C(I) < 
X + 3 AND 201) > Y - 3 AND Z 
(I) < ¥ + 3 THEN 4040 
4035 NEXT Is GOTO 4050 
4040 FOR I = 1 70 303 IF 1/2 = 
INT (I / 2) THEN POKE =~ 1 
6304903 POKE - 1630290! POKE 
~ 16299903 POKE - 16298903 
GOTO 4045 
4042 POKE - 1630470! POKE - 16 
30190 POKE - 1630003 POKE 
- 1629850 
4045 FOR U = 1 TO SO% NEXT UsTiy 
= V+ 13SC = SC + 500: GOTO 
100 
4050 IF Y > 12 AND Y < 28 AND X > 
12 AND X < 28 THEN SH = SH - 
2sKL = PEEK ( - 16336) + PEEK 
(49200) 
4060 RETURN 
9000 PL = PL - I 
S010 FOR I = 1 TO SOSKL = PEEK 
( - 16336) + PEEK (¢ - 16336 
)- PEEK ( - 16336): FOR U = 
1 TO I / 2% NEXT US COLOR= 1 
3s HLIN INT (40 & RND (1)) 
» INT (40 ® RND(1)) AT INT 
(40 k RND (1)) 
S020 VLIN INT (40 & RND (1))»9 INT 
(40 & RAE C1)) AT INT (40 8 
RNG (1)) 
9025 NEXT I 
9026 SH = 50 
3030 IF FL = 0 THEN 5100 
9055 RS = 1 
9040 FOR IT = 1 TO 1000: GOTO 100 


sl0OO PRINT $ PRINT $ PRINT “SCOR 
E "SC" ANOTHER "$3 INPUT AS 
+ IF LEFT$ (A$s1) = "N" THEN 
EWG 

9110 CLEAR $ GOTO 5 ta 


eon 

1Q REM FeeEREREEER EE ESS 

{2 FEM * GEOFF MORGAN + 

14 REM # 1983 t 

16 REM #HeEERHHEEE EERE 

20 HOME 

3@ GOSUB 1520 

4Q YTAB 22: HTAB 6: PRINT "HELLO! I'M ---- ! 

S@ VTAB 24: HTAB 8: INPUT "WHAT IS YOUR NAME? ";N$ 

6@ HOME ; VTAB 22: HTAB 8: PRINT "DO YOU NEED HELP BEFORE" 

70 VIAB 24: HTAB @: PRINT "STARTING THE GAME? (Y¥/N)"; 

gg GET Y$: IF Y$ = "Y" THEN {18 

92 oIF Yf = "N" THEN 128 

i@@ GOTO 88 

11@ GOSLE 1628 

122 G0Td 142 

138 G = i: GOSUB 1428 

140 IF D = 4 THEN 268 

iS@ TEXT : HOME :; PRINT TAB SINS + "-"4 

i@Q PRINT : PRINT : PRINT TAB( 5) "THE DIGIT INDICATED MUST" 

172 PRINT : PRINT s PRINT TAB( 5) "MUST BE REMOVED IN ONE MOVE." 

{8@ FRINT ; PRINT : PRINT + PRINT TAB( 5) "FOR EXAMPLE-" 

198 PRINT : PRINT TAB( 18)"TO ‘WIPE OUT’ THE" 

230 PRINT : PRINT TABR( 5)°3 IN 32, 38 (3 TENS) MUST BE" 

21¢ PRINT : PRINT TABR( S}"SUBTRACTED FROM 32 79 GIVE 2." 

000 UTAB 24: PRINT ABC 6)"(PRESS ‘SPACE HAR’ TQ CONTINUE)": 

258 SET Ag: IF Af =" " THEN 258 

240) S070 232 

258 GOSUBR 1958 

260 TEXT : HOME : VIAB 4: HTAB 8: PRINT N$ + “-"; 

270 YTSE 6: HTAB 3 

73@ PRINT "TO SELECT THE NUMBERS YOU" 

292 =RINT : PRINT TAB( 8)"WOULD LIKE TO WORK WITH" 

302 PRINT : PRINT TAR( 8)"TYPE THE NUMBER PRECEDING" 

3:8 PRINT : PRINT TAB 8)"YOUR SELECTION." 

328 PRINT s PRINT : PRINT TAB( 12)"t. TENS" 

230 ORINT TABL 12)"2, HUNDREDS" 

349 PRINT TAB 12)"3. THOUSANDS" 

253 PRINT TAB £2)"4,. TEN-THOUSANDS" 

360 PRINT TAB( 12)"5. HUNDRED-THOUSANDS" 

770 PRINT TAB! 1£2:"6. MILLICNS" 

30@ SET BS 

39@ 7 = VAL {Bf}32Z = 2 + 

40 IF 7 > 8 THEN 420 

41@ GOTO 438 

420 IF 27 ¢ 7 THEN 4352 

470 FRINT : PRINT ; PRINT TABS 7} "YOU BID NOT FRESS A NUMBER FROM { 
&. TRY AGAIN. ": 

$49 FOR S$ = 1 TO 2080: NEXT : GOTC 2ée 

$52 CC = @ 

4oQ 0 = j 

478 IF € = 11 THEN i148 

A390 RRS = "TIME = T"LLF = TURF = 

49@ y = RAND (2) 

“Oe X = NT Ae 18° TD) 

Si@ IF X¥ ¢ 1@ * 72 THEN 488 

flO HOME : TAB {Z: HTAE iz 

308 A$ = ast iki 

E49 IF Z 7 2 THEN 712 

sua PRINT 14 

548% = BND (9):¥ = INT (Y & 12) 


iit 


57@ IF Y = @ THEN 54@ WIPEOUT is an_ educational 


588 IF Y = 4 THEN 568 drill and practice program de- 
598 IF Y = 8 THEN 548 signed to strengthen place 
688 IF Z < 3 THEN 658 value skills. The student can 


418 IF 2 = 3 THEN 72 =5 select the magnitude of the 
628 IF 2 = 4 THEN 72 = 6 numbers to be worked with — 
638 IF 2 = 5 THEN 72 = 7 Six levels (tens through millions) 
459 IF Y > 727 THEN 568 for at any point during the 
bbo YY = Y hi 


The student is required to 
‘wipe out’ the randomly selected 
digit in the randomly selected 


678 FOR T= LEN (X$) 10 1 STEP - 1 
SAO RRS = RRS + ( MIDS (X$.T\1)): NEXT 


590 Y$ = MIDS (RR¥,Y,1) number within the range cho- 
708, IF Y$ = "@" THEN 568 sen. For example, to ‘wipe out’ 
718 IF ¥$ =" " THEN 568 the ‘3’ in 23 576, ‘3000’ is en- 
728 V = LEN (X$) - Y tered as the number to be sub- 
738 FOR G = 1 TO 3: VTAB 13: HTAB 12 + Vs PRINT "*"; tracted to give 20 576. 

74@ GOSUB 958 iz 

738 VTAB 13: HTAB 12 + V: PRINT " ": GOSUB 958 Geoff Morgan 
768 NEXT : YIAB 13: HTAB 12 + ¥: PRINT "*" , Ferny Hills Qld 


778 VTAB 16: HTAB (4): PRINT "WIPE OUT THE DIGIT MARKED BY THE “*°" 
788 FOR & = 1 TO 200: NEXT 

798 IF ¥ < 4 THEN 838 

B8@ IF Y = 9 THEN 828 


BiB Y= Y - 2: GOTO Bag 
B28 Y= Y - 3: SOTO 348 
Be Y=Y- 1 


B49 VTAB 19: HTAB 6: PRINT "TYPE THE NUMBER" 

B58 HTAB 6: INPUT "T0 BE SUBTRACTED - ";RR$: GOSUB 1738 
Bod P= VAL (Y$}:0 =P # (18° V)sPP=X- 2 

378 IF PP < > INT (PP) THEN PP = INT (PP + 1) 

B80 BB = X - RR 

a9@ IF BB = PP THEN 940 

908 GOTO 1298 


FiO RF = RIGHTS (X$,3) 


os 
eo 
no 
ul 
ea 


BOTC 1288 

FOR G6 = i TO 2008: NEXT & 
HOME : VTAB 12: HTAB &: PRINT “PRESS ‘SPAC 
PRINT : PRINT : PRINT TAB( 8) "PRESS ‘E 
GET 6$: 

IF G$ = " " THEN 268 


oa ~O 
[——~} 


E BAR’ 10 CONTINUE" 
’ TQ END" 


ee fed or 
aq Se s&s 


920 IF 2 = 4 THEN 942 5@ IF G$ = "E" THEN 1278 
930 P= 2 - 2:L$ = LEFT$ (X$,P):X$ = L$ +" " + R$: GOTO 558 6@ GOTD 1258 
$: 6070 558 88 END 


95@ FOR G = { TO S@8: NEXT : RETURN “PRINT CHR$ (7): NEXT 


968 GOSUB 2048 QB VTAB 22: HTAB 

978 VTAB 12: HTAB 12 + ¥ 1@P = RND (i):P = INT (FP # 18) 
988 IF VW < > @ THEN 1888 2@ IF FP = 1 THEN 1368 

998 PRINT " ":: GOTO 1010 38 IF P = 2 THEN 1378 

1088 PRINT "@";: 49 IF P = 3 THEN 1389 


181@ PRINT CHR (7);: FOR W= 1 10 2008: NEXT @ GOTO 1218 


Qed ted Ged Cd CN Ce tN PO bo a oe oe a cece eel 
i] 


fe ee ee ee ee eee 


5 
1228 HOME : VTAB 13: HTAB 8:P = RND (1):F = INT (P # 1) 68 PRINT "# # SORRY, NOT CORRECT "sN$: GOTO 1298 
1832 IF P = 1 THEN 1270 378 PRINT "# # THAT'S A MISTAKE "sN$: GOTO 1398 
1040 IF P = 2 THEN 1088 138@ PRINT "# # YOU MISSED THAT "sN#: GOTO 1398 
105@ IF P = 3 THEN 1090 1279@ PRINT : PRINT TAB( 7)"TRY AGAIN! # #"; 
1848 GOTO 1028 1402 FOR G = 1 TO 2008; NEXT 
1878 FLASH : PRINT "- - WELL DONE "sN$;" - -": SOTD 1108 1418 VTAB 19: PRINT SPC{ 188); 
1888 FLASH : PRINT "# # MARVELLOUS ":N$:" # #": GOTO 1100 1428 VTAR 22: HTAB 6: PRINT SPC{ 108); 
1298 FLASH : PRINT "* # YOU BEAUTY "sN$:" # #": GOTO 1108 143@ 1 = 1+ 1: IF 1 = 3 THEN 145@ 
1108 FOR G6 = 1 TO 1000: NEXT {449 GOTO 948 
W1072=2+ is1=28 1450 HOME : YTAB 13: HTAB 2: 
1120 NORMAL : HOME :CC = CC + t:RR$ = ""sC = C + ft: GOTG 479 {460 PRINT "THE CORRECT NUMBER TO" 
1138 GOTO 1148 147@ PRINT : PRINT TAB( 8) "SUBTRACT IS "s; VAL {¥#) # 18° Y; 
1140 VTAB 12: HTAR 8: PRINT N$ +" - * 1488 FOR G = 1 TO 2000: NEXT 
115@ HTAB 2: PRINT "GOOD WORK!" 1490 I = O:RRF = ""s:C = C + ft: GOTO 478 
1168 PRINT 1508 GR: COLOR= 14: FOR X = @ TO 39: HLIN 8,39 AT Xs NEXT > 
1172 PRINT TAB{ 8)"YOU HAVE "sCCs" OUT OF "sC - 1:" CORRECT!" | 1510 COLOR= 1 


| : 57 


WIPEOUT 
V 


1928 


¥LIN 
WLIN 12,26 AT & 


153@) VLIN 23,26 AT 3: 


{348 VLIN 12,26 AT if: VLIN 12,26 AT [3 


19: VLIN 12,16 AT 
iSu@ VLIN 12,17 AT 17 
1568 VLIN 12,26 AT 

26 
1572 VLIN 
26 


HOY 
at 


HLIN 
GOSUB 1472 
161@ RETURN 
1620 COLOR= 14: FOR X 
163@ G6 = PEEK (5) 
1642 FOR Y= 1 TO 120 
1658 NEXT Y: NEXT X 
1562 RETURN 
1478S = - 16336 
1680 FOR B= 1 70 58 
1698 G = PEEK (S) - 
1700 FOR B= { TO 50 
1718 6 = PEEK (S) - 
(5) + PEEK (5) 
1728 NEXT : RETURN 
1728 £ = LEN (RRS) 
1748 IF RR$ = "" THEN 
1758 FORL = 1 TOE 
1768 EES = 
1770 EE = 
{780 IF EE = 32 THEN 
1798 IF EE < 48 THEN 
1982 fF EE > 57 THEN 
1818 NEXT L 
1828 RR = VAL (RRS): 


1280 
1598 
1688 


12,26 AT 


ASC (EEF) 


19: 


12,26 AT 24: 


in 
34,58 AT 12: 


VLIN 23,26 
i7 

HLIN 19,22 
VLIN 12,28 


VLIN 12,26 
VLIN 12,2 


AT 7 


AT 12: HLIN 


zit HLIN 


12,26 AT 2: VLIN 12,26 AT B: HLIN 4,6 AT t2: 


: HLIN 12,17 AT 


19,28 AT 


24,27 AT 


= 12 T0 2b: HLIN 8,39 AT X 


(S) 


PEEK 


PEEK (5; + 


848 


MID$ (RR$,L,1) 


1913 
1838 
1838 


RETURN 


PEEK (§) - 


1838 
1848 
1858 


> 1 THEN 1878 
81 THEN 1948 
82 THEN 268 


LEE 3< 
IF EE 
IF EE 


te 6 


1868 72 THEN 
1878 


1988 


IF EE 
FOR W = 


ATER": NORMAL 


158 


1 10 2: PRINT CHR$ (7)5: NEXT 
VTAB 22: PRINT "YOU DID NOT ENTER "3: INVERSE : PRINT "A NUMBER GRE 


+ PEEK (5): NEXT 


PEEK (5) + 


1898 HTAB 14: INVERSE : PRINT "THAN ZER@!": NORMAL 


1988 FOR W= 1 TO 208 
1918 VTAB 22: PRINT 


@: NEXT 
SPC( 88); 


1928 PRINT CHR$ (7)3: VTAB 28: PRINT SPC{ 39); 


1938 RRS = "": GOTO 84 
1948 HOME : GOTO 1140 
1950 
1960 
1978 
1980 
1998 
2008 
2018 
2028 
2038 
2048 


GET G$ 

IF 6$ = * " THEN 
GOTO 2888 

RETURN 
VV = Vi RETURN 


} 


08 


2838 


17 


\2 


z6 


e HEIN 19 2c 


: HLIN 24,2? 


PEER oe 


HOME : VTAB 8: HTAB S: PRINT “DURING THEN GAME ENTER: * 
PRINT : HTAB 9: PRINT "‘@° TO QUIT" 
PRINT : HTAB 9: PRINT "’R’ TO RETURN TO MENU" 

PRINT : HTAB 9: PRINT "'H’ TO GET INSTRUCTIONS" 
VTAB 18: HTAB 4: PRINT "PRESS ‘SPACE BAR’ TO CONTINUE. * 


AT 


PEEK 


Lots of unlocked files on your 
disk, and hours of typing to lock 
thern up away from the kids? 
Try Speed-Lock. 

The Speed-Lock will first 
catalog the disk, and when the 
end of catalog is reached, a 
short data POKE sequence is 
run, (about 6 seconds) and a 
menu placed at the top of the 
screen: Lock, Unlock, Normal, 
Quit. Selection of Lock will 
cause the drive to step through 
each listing on the Displayed 
catalog only, and lock the files. 


JLIST 


10 
20 


TEXT : 
REM 
LOCK 


HOME : CLEAR 


PRINT CHRS® (4) "CATALOG" 
DIM A(24) ,N®(30) 
50 3: 
FOR I = 1 TO 24: READ ACI): 
REM IX/VII/MCMLXXXII 
T = PEEK (37) 
IF T > # 23 THEN S = O: 
S=5 
GOSUB 380 
INVERSE : 


VTAB 1: HTAB 1: 


HOME 


PRINT 
(Q)UIT"y: NORMAL : PRINT " ?"; CHRS 


IF ANS = 
IF ANS = 
IF ANS = 


"L" THEN 190 
“U" THEN 310 
"Q" THEN 260 


IF ANS = "N" THEN 270 
GOTO 120 

PRINT "LOCK 

FOR X = S TO T 
N@(X) = MIDS (N®(X),7) 
PRINT CHR® (4) "LOCK"N$(X) 
VTAB 1: 
NEXT X 
GOTO 120 
GOTO 3500 
PRINT : HOME 
PRINT CHRS 
GOTO 260 

END 
PRINT 


210 
220 
23C) 
240 
250 
2460 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
4350 
460 
470 


(4) "CATALOG" 


"UNLOCK 
FOR X = S TO T 
NS(X) = MIDS (NS(X),7) 


VTAB 1: 
NEXT X 
GOTO 120 
FOR X = § TO 24 
FOR Y = 0 TO 29 
NS(X) = NB(X) + 
NEXT Y 

IF MIDS 
NEXT X 

XX =X- 1 
RETURN 
DATA 
DATA 


HTAB 7: PRINT “ 


(N$(X),2,1) = 


1024, 1152, 1280, 1408 


PRINT CHR® (4) "UNLOCK"N® (X) 
“SNS (X) 


“= T APPLE SPEED LOCK 


Unlock performs in the same 
manner. Normal simply 
catalogs the disk, then exits the 
program. Quit simply clears the 
screen and ends. 

For disks with full catalogs, 
that is, more than 1 screen-full, 
only the last screen display will 
be locked. A short catalog inter- 
rupt sequence should be no 
problem so you can lock the 
first screens and then move on. 


R. Chaimers 
Inala Qid 


SPEED 


NEXT I 


GOTO 110 


“(LOCK (U)NLOCK 


(8)3: GET ANS 


(N) ORMAL 


HTAB S: PRINT " "N®(X) 


CHRS ( PEEK (A(X) + Y)) 


CHRS (160) THEN 440 


1536, 1664, 1792, 1920, 1064, 1192, 1320, 1448, 1576, 1704, 1832 


» 1960, 1104, 1232, 1360, 1486, 14614, 1744, 1872 


480 
490 
S500 


DATA 2000 


DEL 10,490: CLEAR : END 


FOR X = S TO T: PRINT LEFTS (NS(X),1)2 NEXT X 


When using the Apple’s hi-res 
screen, you have a whole world 
of graphic capabilities at your 
fingertips. But sometimes, as | 
have found, you can create a 
complex picture or graph and 
then say to yourself ‘It would 
look a lot better if the whole 
screen was reversed’. Here is a 
short Assembly Language pro- 
gram that will do this for you. To 
utilise it simply BRUN the pro- 
gram after saving it to disk. 


Martin Scerri 
Mulgrave VIC 


1 


7®@ 


Bo 
9® 
10© 
116 
120 


12@ 
146 
150 
160 


170 


HI-RES REVERSE» 


CLEAR : TEXT : HOME : INVERSE 
: FRINT SPC( 4@): VTAB 2: HTAB 
1: PRINT " "s VTAB 2: HTAB 4 
@: PRINT " “: VTAB 3: HTAB 1 
: FRINT SFC( 40): NORMAL : VTAB 
2: HTAB 10: PRINT "EFSON GRA 
PHICS DUMF": VTAB S 
FORE 34,3 
GOSUR 1230 
INFUT “INVERSE? (Y OR N):"3 IN 
$ 
INFUT “ENLARGED? (Y OR ND): "SE 
NS 


IF LEFTS (IN$,1) = “Y" THEN 
I = 32 

IF LEFT$ (EN$,1) = "Y" THEN 
E = 64 


POKE 1913,E + I + 1 

POKE 1913,E + I + 1 

PRINT CHR® (4)5"PR#1" 

PRINT CHRS (17) 

PRINT CHR® (4)3"PR#O": POKE 


34,0: END 
PRINT CHR$ (4)3 "CATALOG" 
PRINT 


INFUT “NAME OF HI-RES SCREEN 
TO LOAD: "5 RES 

FRINT CHRS (4)3"BLOAD"S RES$$ 
",AS2000" 

RETURN 


SS55SZS REM 39646 6969 1 9 ee He ee a ee 
65535 REM COPYRIGHT (C) 1983 
65535 REM 22/7/83 

65525 REM MARTIN SCERRI 
65535 REM WRITTEN BY: 

65535 REM 146369636 6 se te se ee ee 


* 


JCALL-151 

*6000L 

5000- 8D Se Coe STA $CeOSeo 
5003- 8D 52 Ce STA $COS2 
5066- 8D 54 Ce STA $C054 
6009- 8D 57 Ce STA $C@57 
500C- AI @e@ LDA #$00 
50Q@E- AB TAY 

500F — 85 F8 STA $FS 
6011- AY 206 LDA #$20 
6013- 85 F9 STA $F9 
6@15- AA TAX 

6016- Bi F8 LDA ($F8) ,Y 
6018- 49 FF EOR #$FF 
601A- 91 F8 STA ($F8),Y 
601C- cs INY 

601D- D@ F7 BNE $6016 
601F- E& F9 INC $F9 
6021- CA DEX 

6022- D@ F2 BNE $6016 
6024- 60 RTS 

6025- FF ??? 

* 

JCALL-151 

#6000, 6025 


6000- BD 5@ C@ BD 52 Ce BD 54 
6068- C® 8D 57 Ce AD @@ ASB B5 
6010- F8 AY 20 85 F9 AA Bi FB 
6018- 49 FF 91 FSB C8 D@ F7 Eé 
6020- F9 CA D® F2 6@ FF 


RESPONSE TIME 


This subroutine can be included 
in teaching programs to gain 


student 


responses in a 


specified time. 


JLGST 


10 H 


Harry Klose 
Wauchope NSW 


OME < TEAT 


15 VTAB 5: HTAB 1: PRINT "PLEASE 


TYPE YOUR NAME AND PRESS TH 
2 RETURN KEY" 


20 PRINT CHRS t7is REM = THIS 


SIGNIFIES THE BEGINNING OF 3 
SECONDS FOR RESPONSE 

= N + 1] 

= PEEK [ = 1653845 


40 POKE - 16384,0 


F N = 120 GOTO 300 


51 REM VALUE OF N CAN BE VARIED 


60 | 
oD | 


1009 
1010 


ACCORDING TO TIME REQUIRED, 
THE VALUE HERE 1S ABOUT 3 S 
ECONDS 
F< #198 GOTO 25 

re YS 127 GoTo 206 
VTAB 8: HTAB 1: INPUT ""SA$ 
VTAB 20: HTAB 1: PRINT "THAN 
K YOU "sA$ 

STOP 
FOR | = 1 TO 3: PRINT CHR$ 
(7): NEXT : PRINT "YOU WERE 
TOO SLOW" 


REM -—- CHR$(7) SIGNIFIES THA 
{ Tie 13. VF 
PRINT 


REM :THIS SUBROUTINE CAN BE 
INCLUDED IN TEACHING PROGRA 
"S TO GAIN STUDENT RESPONSES 
IN A SPECIFIED TIME. 

PRINT 

REM :THIS PROGRAM CREATED 8B 
Y HARRY KLOSE 1 MAY 1982 


Pe whee 
REO f 


ae 
aps 
ts. 


annotate 
Nei CvAN 

pager sees ok 
ines 

: Rp 


Have you ever wished that you 
didn’t have to enter DOS to 
search disk directories. for a 
particular program? How about 
single key input to run the pro- 
gram once found? 

Selector was written with both 
of these ideas in mind to allow 
my children easier access to 
our games disks. It will accept 
up to 50 filenames from a disk, 
although this may be increased 
to the ATARI’s maximum of 64 
by changing the DIM FILE value 
in line 600. 50 should be suffi- 
cient for most disks. 

SAVEd programs will be RUN 
upon selection and LISTed pro- 
grams will be ENTERed. | have 
assumed that LST will be used 
as a filename extender on 
LISTed programs, as recom- 
mended in the DOS Reference 
Manual. A load will be attempt- 
ed for any file selected, how- 
ever, an error message results 
if the load is unsuccessful (for 
example, if trying to load 
DOS.SYS). 

| have made this program an 
AUTORUN.SYS file on all of my 
disks so that my childrén can 
easily select their program as 
soon as the disk boots, or sim- 
ply read directories until they 
find the program they wish to 
run. This was achieved using 
the program from Automate 
Your ATARI, written by JJ 
Wrobel and published in the 
January 1983 issue of COM- 
PUTE magazine, page 146. 


J. Trigge 
South Penrith NSW 


COPY SELECTOR 


i REM 
2 REM SELECTOR 


' 3 REM by JOHN TRIGGE 


4 REM 3 September 1983 

5 REM 

10 DIM FILE$(550),IN$(17),OUTS(14),T$(1),MSGS(80), TE MP$(1 1) 

15 GOSUB 600:REM Initialisation 

20 M=1:N=64:GOSUB 500:REM Get directory 

30 IF C=1 THEN POSITION 14,10:? “ Disk empty ":GOTO 70 

40 7 “<";CHRS(M+N);"> “;FILE$(M#11-10,M #11) 

50 IF M+N=77 THEN POKE 82,22:POSITION 22,2:REM Start second column 

60 M=M+1:I1F M<C AND M/27<>INT(M/27) THEN 40 

70 POKE 82,2:GOSUB 400:REM Get message 

80 GOSUB 300:REM Sound, move message and get input 

90 IF (A<49 OR A>50) AND (A<65 OR A>M+63) THEN 80 
100 IF A=49 AND M<C THEN GOSUB 600:N=N-26:GOTO 40:REM More programs 
110 IF A=49 THEN GOSUB 430:GOSUB 300:GOTO 70:REM No more programs 
120 IF A250 THEN GOSUB 410:GOSUB 300:GOSUB 600:GOTO 20:REM New disk 
130 D=A-N:OUT$="D:" 
140 TEMPS$=FILE$(D#i1-10,D#1 1-3) 
{50 FOR I=1 TO 8:IF TEMP$(I,1)<>" “ THEN OUTS(LE N(OUTS)+1)= TE MPS$(I,I):NEXT I 
160 TEMP$=FILB$(D#i1-2,D#i1) 
170 IF TEMP$(1,1)<>" " THEN OUTS(LE N(OUTS)+1)=".":REM Filename extender used 
180 FOR I=1 TO 3:IF TEMPS(I,1)<>" " THEN OUTS$(LEN(OUTS)+1)= TE MP$(I,I):NEXT I 
190 IF OUTS(LEN(OUT$)-2)="LST* THEN GRAPHICS 0:POKE 82,2:GOSUB 450:ENTER OUTS 
200 TRAP 210:GOSUB 450:RUN OUTS 
210 GOSUB 420:GOSUB 300 
220 POSITION 7,19:? "{30 spaces)" 
230 GOTO 70 
300 FOR 2#1 TO 2:FOR Y=i TO 40 
310 SOUND 0,96,10,10:NEXT Y 
320 SOUND 0,0,0,0:NEXT Z 
330 POSITION 1,23:? MSG6(1,38); 
340 T$=MSG$(1,1):MSG$=MSG$(2):MSGS(LE N(MSG$)+1)=T$:REM Move message 
350 FOR W=1 TO 40:NEXT W 
360 IF PREK(764)#255 THEN 330 
370 OPEN #2,4,0,"K:":REM Open keyboard 
380 GET #2,A:POKE 764,255 j 
390 CLOSE #2:RETURN 
400 MSG6="#PRESS LETTER BESIDE DESIRED PROGRAM##i=MORE PROGRAMS##2=NEW 

DISK#":RE TURN . 

410 MSG6="*PLACE NEW DISK IN DRIVE##PRESS ANY KEY TO CONTINUE#":RETURN 
420 MSGS="*#PROGRAM NOT AVAILABLE FROM BASIC##PRESS ANY KEY TO CONTINUE #":RETURN 
430 MSG6="*#NO MORE FILES ON THIS DISK##PRESS ANY KEY TO CONTINUE #*:RE TURN 
450 POSITION 7,19 
460 ? “Searching for ";OUTS 
470 RETURN 
500 OPEN #1,6,0,"D:#.#":REM Directory 
310 C=1:FILE$=" * 
3520 INPUT #1,IN$:REM Input filename 
530 IF INS(LEN(IN$)-11,LEN(IN$))="FREE SECTORS" THEN 570 
540 IN$*IN$(3,13):REM Remove ‘locked’ 
550 FILES$(C#11-10,C#11)=INS 
560 C=C+1:GOTO 520 
570 CLOSE #1:RETURN 

600 POKE 82,2:GRAPHICS 0 
610 SETCOLOR 2,1,1:POKE 752,1 

620 ? "{11 spaces}DISK DIRECTORY(11 spaces?) 
630 POKE 82,3:? 

640 RETURN 


MM 


ATARI 


Bs 
Was 
Ss 


ps 


Word Teaser is a game de- 
signed to trick your friends into 
believing that you have one of 
the most intelligent computer in 
the world. 

When you have keyed in the 
program and run it you will be 
confronted by the question “Are 
you ready to start?” If you type 
in yes the game will start, if you 
type in no the program will end. 
If you type in an asterisk in- 
structions will be displayed on 
the screen. 

After you have read the in- 
structions try the program on 
your friends, they will be 
amazed. 


Jarrad Webb 
Henley Beach SA 


This program uses the HIRES 
machine code routines to plot 
graphs of user-supplied func- 
tions within a range of values 
specified by the user. The de- 
sired function is simply input; 
the program contains a mini- 
interpreter to code the function 
and allow the X and Y coordi- 
nates to be calculated for the 
plot. 

The plot is automatically 
scaled, graduated and labelled, 
X and Y axes are displayed, 
and the title and range indica- 
tions are displayed. The pro- 
gram allows functions to be 
plotted which include any of the 
normal arithmetic operators as 
well as SIN, COS, TAN, ATN, 
EXP, LOG, SQR, ABS and INT. 
The exponentiation ‘up arrow’ 
and parentheses may also be 
used. 

The range of X values re- 
quired should not include any 
values for which the function is 
undefined (eg. division by zero). 

The HIRES routines must be 
loaded into memory before this 
program can be run. Take great 
care when typing this program 
into your computer that there 
are exactly 59 spaces between 
the ‘=' and the ‘2’ in the first 
line. 


M. Griffiths 
Lindisfarne NSW 


WORD TEASER 


1 DIMSS¢(505, 4°50) > H=1 
S PRINT "{}" 


SQ FRINT" € 4 3% 3 Sede” 
So PRINT" # # # # & © # 3% SORAHEORT 
S4 FRINT" # *# # # © Fee € # OBEY JLWEBBS" 
S6é PRINT" #*# #¢ # © © #€ # # SeeOReREH" 
So PRINT" # & #4% 4 See” 


waa) Amn o 


1 PRIWT 


2 PRINT" +0888 90 944 $44H EE He” 


4 FRIHT" #* # * + # sd * # 

é& PRINT" *© #48 % % $4 HH RT 

S FRIHT" # # HRREK * # * * 

Q@ PRIHT" # eee 4 OF FREE FEE ROHN 

@ PRIHT'MEFLEASE GUESS A WORD IT MUST BE A MOUMO” 


@ FRINT"@RARE YOU READY TO START <ii"H> a" 


185 IFAS="*" THEH3a0 

11@ IFA="""THEH1S& 

120 IFA#="H"THEMPRINT" IQSEE “OL LATER. BYE" EMD 
128 GOTO1AG 


SQ PRIMT"CRRRBRRPRRRPBRPIQIORT TEASERS" 


16@ IMPUT"GWHAT COLOUR IS IT "VF: GOSUBSaa 


GRAPH 


136 


DEFFNAC% = 24x42 


REM 
= REM MIKE GRIFFITHS - 1983 
2 REM 


J=49531°POKE49651,14 
FLAG=FLAG+1 : IFFLAG? 1 THENS295 


5 PRIWTCHRE* 1442 

A DIM ShGo DINK S660 DIMD$( 14> > DIMH$6 14> : GOSUBS8G6 : GOTO1Sa 

A “HEIMT ORL 2569 ° AL=K1-256#XH: POKES, 1: POKET+1,¥4L:POKEI+2. 4H 

A SYS49711 

A RETURH 

Y POKES 3221,14°PRIMTCHRS¢ 1479 PRINT"SPECIF'? FUNCTION IN THE FORM Y=Feuo" 
| PRINTOPRINT OU CAM INCLUDE" : PRINT 

r FORK=17T03: PRIMNTDS¢ Ho TABS LO DSC 443) TABC ZO DSC K+6 9 > NEXT 


PRIHT: PRINT’ CEMTER ZERO TO EMD" 
PRINT: IMHPUT "Y=" F$ 


: TFFS="8" THEMEMD 


PRINTCHRS (1472: PRIHT:PRINTTABS 122 "CODIHG FUMCTIOM" 
Site" Y="+Fs 

A=LEN CF $3 -2 

FOR =1T0OAR 

TE=MIDECKS, HS 

FOr y'=1 70S 

IFTS=D¢ Co THEMFS=LEFTE CFS. X-1 +E +RIGHTE CFS, A-X> : A=A-2 
MEST > NEXT 

A=LEHM CFE * 

FOr} =170A 

TE=MIDSCRS, 10 


» FORY=18TO14 


IFT#=DF¢6''s THEMFS=LEFT SCRE, A-1 +H SC +R IGHT SCF S$, A-% 


» MEXT HERAT 

4 IFLENCF #9 <647THEMF $=" "+F$: G0TOL74 

) IFLEHCF So >647HEMPRIMTCHRS¢1470 > PRINT"FUMHCTIOMN TOO LONG": END 
> FORK=1TOLENCR$ > 


PORESAS +4 ASCOMIDSCr$, X¥. 10% 

MENT 

G0TO108 

PRIHTCHRE¢ 1470 (PRIMT: PRINT" IMHDICATE RAMGE OF PLOT" 
PRINT: INPUT"LOWEST * VALUE "GL 

PRINT: INPUT"HIGHEST % WALUE' SH 


1S PRIMTCHRE C14? PRINT PRINTTABC 11° "CALCULATING POINTS" 


668 INPUT'MIS IT MADE OF WOON “s0s:GosuRSOE 322 PRINT B.A TER WOW HAVE ANSWERED EACH QUESTION" 
. ts ee ee : 223 PRIHT'MEPRESS ORETURHD." 

: 4PUT "BIS 4ADE OF PLASTIC " RE GOSUE EA a a De rere 
{69 INPUT'IS IT MADE OF HATURAL SUBSTANCES ":0¢-oosuRSaa 22" ee 
17a IHPUT "NCES IT FAT Foon "AE: GOSUESAE pica PRINT" FHHEN lag ees aired tie REEH 
75 INFUT"@IS IT VERY LARGE "sc: GOSUBSER eC ERIN BENGE eee ; 
INFUT"@IS IT VERY HEA "; G+: GOSUBSAaa ele PRINT "WE-THE WORD WILL THEM HREPERF On THE 

UT "BIS . My 0) GF: GOSUB SBE 329 PRINT'RESCREEN AS IF EY MAGIC," 


A 
2 ee ee ee cca PRINT QUBRBRBRERERN' FE’ To Se-PuNm 
Q@ IMPUT"@NOES IT MAKE A MOISE "iO: GOcSuESAa a A eee pee SOREN eve 
S INPUT"BIS IT ANIMAL. VEGETABLE OR MINERAL ":o¢-cosuEsee 222 0TO5 ok 


OAR INPUT RTS IT HATURAL ":O¢ GOSUESaG Se yates ae igs ae 
285 IMPUT"MDOES IT GIVE OFF AN ODOUR "sas: GOSUBSe0 Siecle = Wa eer Lea 


218 INPUT DOES IT MOVE "sos GOSUESaG SBS TPAS=" 1" THEMGOT eG 


328 PRINT'@I‘M SORRY 1 DON’T KHON WHAT IT 13” Sead 
PRINT "MPLEASE TRY AGAIN” Sap oe TURN 

200 FORT=17TOS000 > HEMT RUM i eee be yirss fee 

30 PRINT'@EBDO VOW WANT TO SEE THIS yh 2" 6O@ FRINT "MM THIME T°VE GOT IT.ITS A wee. "PRINT 

305 GETAS IFA$=""THEN285 —* E10 FORT=1T0%: PRINTS# ‘TS. 

310 IFAS="N"THENRUH 620 oo ERT! 

S15 IFAS" THENSES 640 PRINT BUMORMBERERHOTHER GO cyon™ 

220 PRINT" OREFASK OUR FRIENDS TO TELL YOU A HOUH, " ae c Pee ee 


é 
321 PRINT'METHEN ANSWER THE QUESTIONS ACCORDINGLY." Boe DE th nes never’ 
660 GOTOI1a 


— -* pO PO 


3 


320 H=A 

336 IFLZHTHENT=H :H=L :L=T 699 [PMD A THEMGOSUB? amg 

235 [=H-Lo28oe, 99s99o99 78 NEXT 

340 FOR M=LTOHSTEFT 782 SI¢="FRESS SPACE TO EXIT" 
SEQ HEN41 MOMS SH+ 29° YONG SPA Yo TAS Ske Gye: GOSUE LEE 

378 HEXT 714 GETM$: LFM$=""THEH? 16 

380 Sa C10 Beye ty 720 POKESS272, 21 POKESS265. 27° PRINT" SOTOLao 
SES PRINTCHRE¢(1470 PRINT PRINTTABCI62 "SCALING" 180@ POKES6 324, PEEK (56324 0AHDSS4 

298 FORM=1TON 1682 POKEL. PEEK C1 ANDES 1 

4@ IFYS 9 <STHENS=¥ Cx? 1807 FORA=1TOLENS St > 

412 1F¥« 9 >BTHENB=¥° 1818 PC=ASCOMIDS CSD. A, 1 

42 HES 1615 IFPC=S2THEH1e855 

425 neces. 981 THENS=S-5 : B=B+5 1a24 TFPC>e1 THEMPC=PC-64 

4306 F=160/CR-55 120 FORBY=aTO? 

435 sy'5495e4: POKEZS3, 1 1446 POKES1S2+5H¢e8+ 220eSY+ Eo PEER SS245+5ePC0+B4 
446 KLELSYL=20: 219° 92=188  GOSUBZ7AaB 1454 HEXT 

456 X1=18:82=18: SOSUE7000 1955 S¥=S¥+1 

466 “1=19°42=30@:Y1=191°Y2=1S1 :- GOSUEF ABD 1468 NEXT 

479 Y1=182:72=182 -GOSUBP AGA 186% POKE1.PEEK«1°0R4 

$28 FORY1=20T01SGS TEP 16 ; 1067 POKESS 224, PEER (S6394 OF 1 

425 “1=16:GOSUB120: %1=17:GOSUB12a 1@76@ RETURN 

496 HEXT 2A A=1 

SaQ FORK1=2ATOSBASTEPZS 2018 DPS=MIDSCS#. A, 1) 

299 V1=182°GOSUB120 ¥1=1284 GOSLIB1Z9 3020 IFIP$=". "THENNC=A-1  GOTOSG40 

519 NEXT 320 A=At+1 > TFACLEN(S¢ * THEN3O 18 

562 S¥=5: S¥=aQ: GOSUBLAAA 3035 T=: G0TOSaS6 

S7A SI¢=""% RANGE “+STR#¢CLi+" TO "+S 7TRECHD 3048 D=3-NC: IFDC@THEND=8 

52 Sk=5: Sv=2: GOSUELAAA 3858 O=VAL CSS» 

599 SI$="" RANGE " 3068 D= Lath 

6aG St=STRECS? SA7A Q=INTOod+. Se Toe D 

£19 GOSUB2E9aa IHS : SgeSTREC Gh TRETURH 

B2A Shg=Sie+se+" TO" saga FORM=1TO14 

620 S$=STRECB? 510 READDE #3. WOME OSCHRECH 

644 GOSUB3006 S@2a HEXT 

650 SDH=SIs+ss SA3B RETURH 

660A 3¥=5: S¥=3° GOSUELaaE 6004 DATA "INT". 181) "ABS 182. "SOR" LEE. LOG" 1S. "EXP". LES. "ose. 1oe 
eva sige" 6416 DATA "SIN". 151, "TAM" LSS. "ATH LSS MA LPR UL PL Me PPE APS 
620 SX=1 Sv=11 /GOSUE1AG0 682@ DATA Race 

636 Snt="s PABA “H=INT CML. ML = 1 -PSG#HH 

632 34221 Sy=273  GOSUELA Pa1@ POKES, V1: PORE TAI VL POKEJ+2 SH 
6a4 oo PO29 MHEINT (42/2562 | MLSX2-2564XH 

636 WOCLISIMTCOLSA Ac pe S eR 4 So 7628 POKEI-2. "2° POKEI—-2, 8L FOKEI-1.H 
Boe ea ei ie 7048 SYS49791 > RETUPM 


65 


20 REM "GY=RVS OM 


r 
— 1 
a 
m 


REM "Ml =k'S OFF 
"A! =00H 


‘7 

ot 
m 
a 


"Hk LIGHT 


Pat ho Ra bak 
Py A a 
a 
la 


“J 
ee 
iM 
ae 
——s 


a Ta pte 


2G peesdore 


48 Wel? :DI=~1:vOe18 

5 DIMH(SS} ‘DI LCE DIMTS 153 
a POKESIOS, 1 PRIRESSOS1. tt 
ee Pelle | aae 


“I eo Da 
mila GSR SAA 
re PORERE +4. 0 
om EMKEL145, 81° PORESS417, 5 


ee 
= 
= s 


GETME > [FECPATHENGO SUBS aC 
[EMe=" "THE 1 
MEAS OM #0: [PMD LS2AMDM LSP THENGOSIE 1 SOe: GOTO1 ae 
MsMnda : TPM GORM® oe : 

ERE+S 40 POKERE+S, 38 POKERE+1L, HOM POKERE, LOM PORERE+4. l 
PL anceeh CD) | FORR=1 TOL MEST PORERE +d. Wed GOTCLES 
Wied yo TRV tS THER ies tS TT 1 
TEMOSECTHEMMOSEC : l=] 
POKERE +24, V0 
RET LIRA 


—* 


Seeck Sends fone fon ? 
$ 
a 


f 


i 
= 


a Ae eG ae a 
S Slat flat tee 


os 
som 3 

4 
prsend 


PA nw 


at 


Rah 
32 ! gl 
ab Pb iy 
ee oe ire Tee a 
feck tet ltt tet toate 


a} 
ie ee ee 


at 
ages 
os 
— 
" 
as 
—‘e 
ti 
~~ tt 
ee; 
as 
dj 
— 
i 
: 
es 


iT - 
mai eh: Bae Eng eng 


pete CEP Py 
an 
ro 

Ts 

ss 

ode 
ime 
— “FA 
fat os 
= 

a 

? 


a 
Fad fy? a? 


— 


eC ee eee eee eS ee 
. Fe so ee Soa 
erie t ma pe Ef 
f 
=, 


MEST 

FORS=AT OHS 
REATIDG 8 3 

HEMT 

coro T | pe ky 

[PMs 1 SS THEMPORS O70 POR ERE GO MEMT OPRINTCMBEC La? > EMD 
TEM= 124 THEMEOKE 1 145 S0HM So Mei} 1 GOSUB2aao : RE TH pe 
TFM=135THENGOSUBZ590 | RETURN 

TEM 1S87HENPCIKE 1 14 5)+S0H Soo MeMe to SOSUBSAam: RE TUE 
TEMS GTHEHM= 

LEMDOTHEHM et 

PORE (Ld 5+HeSe, Gt PORESS 4 1 +Hae 

RET LIRM 


Pree Sed 1 eth: 


see ome “eee 


mai oh: i i 
td 


oS 
pong aba: 
1h: 
= 


ae Ne 
eons ote 8" 
ia? iad bn 


Tis peek 
ow 
~—' 


~ 
— 
= 


f “if 4 


i 


i 
BO EURE¢ 1549 TABCEL) "EF! : 


COTM TTeie & 
mh TROT Pere co : ee Er “a 


MMe b+ dO GOS UE SAE, See, les 
i 


TP H=40RH=SORHSE THEM! Patt: Hes 
PRINT CHEE SUCHE Sas TAR Sto Wt een" 
PRINTTABC S10 "RFS Ue ‘ 
PRIMTTABCEL OBES ALTER" 

S CRINTTARC SLO BF? DoW 
EE PORES Sel 1 Pees 

RETURM | 
rir yet Vyas 
Pibihay at ATH 


SSH. Hae, BS, Peo, Soe 


= sr, 
“at tlt 


Ls or a 

pit 's 2 
aos gee ae 
Pit it i 


= 
os 


Vat 28 et 
rm 


Yat 
mt 

ad okt FW 
= 
a4 = = 
i_t ae 
ee 
Ii 

iT; 4 
ai 


eee, eee 


—_ 

iu 

+ 

aS 

eA 
TT 
ot 
_—_ 
-= 


~jJ:° TFA THEMA=e 

Lie F1liSs., S32: POKELISS, So: FORH=eTO2 > PORELSO@o+s. Se: HEAT 
PRINT CHR (150 CHR C Lad TRE LMR: 

HD=H#€ 1] e+ 

FR THT OCHRE Loo TARCS4 > ‘GI | An 


GOTOSAAe 
BETME: TFME="" THEM SSa8 
ed ba a 
TF M1 S40RM> 1 se THEM SSe8 
ial Liss: RETURH 

SOSUES SAB 


“T. 
ot® 


tt Lf te 


t tsk is 


ee: 


=, 
e 7 8 'e. 
Ft 


rT 


J 
™ 


=, t=, 

a 
=a 

ee te 

ax 

= 

tsi is 


it 
=, or, 
si ft la! byl 


Mar fale [ac ee i Ee 
=, 
‘emelie® * al 


mr 


Yet vot sb Cale alk a ea 2 fs 


CA ek ed oe ee mo 


, 
aA 
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Synthony is a music/sound ef- eames 
fects experimentation program 


which converts the Commodore 1 | 1 15 | 13 | HI @ 

64's keyboard into a three-oc- | / PULSE 

tave musical keyboard with full LO 255 

notes on the ‘QWERTY’ and ek a ee ees a aa, ee 

bottom rows and half notes 18 | = | 8 | 8 i SAWTOOTH g 

where appropriate on the inter- 

mediate rows. M i 8 3 g g PULSE HI 2 g 
The program uses voice 1 of | | 


the user to alter the ADSR en- 


velope, waveform and other Z g NOISE 
parameters by simple manipula- oat eeetea aie me 
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tion of the special function keys. 
Formatted screen output makes | 12 | 12 NOISE 
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the Commodore 64 and allows l | LO 299 


Q 
Oo 


these changes and displays the 
appropriate sound chip regis- 
ters and the values currently 
being POKEd into them. The 
program can thus be used for 
simple entertainment, including TRIANGLE 


playing tunes and experiment- : see Saree sear tar © ala CR aga 
ing with sound effects, or for de- He, 5 
veloping tunes or sound effects : PULS = 


site 
LO @ 
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for subsequent use in games, , LO. g 
programs, etc. 
Independent selection and 


alteration of attack, decay, sus- 

tain and release is provided, as | High Low Key Note High Low Key Note 
well as waveform and echo Foe ga 

selection. When pulse 4 73 Z Geo 43 156 3 Ga 3 


waveform is selected, provision 


is made for independent altera- ly 439 S CH-2 44 487 E A-3 
tion of high and low pulse width. 
Echo can be selected and is im- mn 248 X D-2 | 15 7¢ 4 A#=% 
plemented by simple modula- | 
tion of the volume register. Note | 
duration is automatically ad- | 3 =? 2 ware | ue al B an2 
justed according to the attack | 
and decay settings. The pur | 2 13 C E-2 17 31 T C~4 
pose of function keys and cur- 
rent status of all of the above 5 185 V F-2 18 42 6 C#¥- 
parameters are displayed on | 
the screen. | 6 16 G F¥-2 19 63 Y D- 
The musical note equivalent 
of keys and the corresponding | 6 188 B Geo ay) 432 7 De—l 
high and low frequency values 
are shown in the first table. 6 286 H Git U ™ 
_ Refer to your Commodore 64 o : ae 1H oe 
Users Manual for the values re- 
quired for notes outside this oc- ci 94 . ie = aoe I oA 
tave range. The second table 
suggests some combinations to q 163 J AF ~2 24 63 9 P-L 
try. 
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exceed +50 or —50 in mag- 
nitude, otherwise subsequent 
rotation of the shape can pro- 


duce somewhat strange results | 


(the program will not crash how- 
ever, even under these cir- 
cumstances). If the coordinates 
are initially too large or too 
small, the object can be scaled 
(eg. a scaling factor of 2 will 
double the magnitude of all 
coordinates, whereas 0.5 will 
halve them). The object rotates 
about the point X=0, Y=0O, 
Z=0 so that positive and nega- 
tive coordinates are usually re- 
quired. 
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If the example block shape 
above is to be a total of 40 units 
long in the X direction, 12 units 
in the Y direction and 20 units 
in the Z direction, then the coor- 
dinates of its eight vertices will 
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2) The program must then know 
which of the above vertices are 
to be joined by straight lines 
when the object is displayed. 


This is accomplished by supply- . 


ing a series of ‘edge indices’. In 
the block example, the indices 
could be: 

-1,2,3,4,1,5,6,7,8,5,-2,6,-3,7,- 
4,8 — a total of 16 indices. 

The magnitude of the index 
corresponds to one of the ver- 
tex numbers above, and a 
negative index indicates ‘Do not 
draw to this point’. Taken in 
stages, the indices above will 
produce the following action: 


FACTOR" F 


FACTOR TOO HIGH": PRINT: SOTOSSE 


RETIRE" 


do not draw 
Graw from 8 to 4 


1l do not draw 

2 draw from 2 to l 
3 draw from 3 to 2 
4 draw from 4 to 3 
1 draw from 1 to 4_ 
5 draw from 5 to l 
6 draw from 6 to 5 
7 draw from 7 to 6 
8 draw from 8 to 7 
5 ‘draw from 5 to 8 
-2 do not draw 

6 draw from 6 to 2 
-3 do not draw 

7 draw from 7 to 3 
4 

8 


In each case, if the index is 
positive, a line is drawn from 
that vertex to the previous one. 
The first index must always be 
negative because there is no 
‘previous one’ in this case. 

The program allows for up to 
96 indices to be supplied, but 
the speed of drawing is im- 
proved by minimizing the 
number of indices (ie. minimize 
the number of ‘do not draw’). 
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Incorporating ‘‘Your Business Computer’’ 


Into computing? This is your 
magazine! Justlook — | 
what’s in it for 

you! 


Your Computer 


is a magazine for all computer users and enthusiasts — there’s something 
for everyone in our pages. We cover games and utility programs for hobbyists, and every sec- 
ond month we publish ‘Your Business Computer’ as a separate section for business computer 
users. ‘Your Computer’ offers topical features on all aspects of the computing world, written | ; 
in understandable everyday language, along with reviews of new products to help you find EFiea contender 
your way round the fast-growing market, and regular columns giving specific advice on all the or 
most popular brands of microcomputer. If computers play any part in your life at all, don’t 
miss your monthly issue of ‘Your Computer’ — without it, you just won't know what’s going 
on! | 
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S20 DATA 43.26, 20,43,60.ER.€R.€H S800 DATA 27.43.AD.B7.42.80,.29.43 7380 DATA AD. 2B, 43,00. 36.43,99,03 73900 DATA AC. 35.43, B3.AF. 41,00. 13 
S710 DATA BD.AS. 42.06.12. EBD AB. 42 S210 DATA AP. 8. S0.25,43.30, 2A. 43 7210 DATA 43, AD. 20,435,399, 06,43,He 7318 DATA BS. 4F.41.A9, BS. OF. 42, 31) 
S220 DATA CS. 20.00.87. DE, AG. 42, DE S228 DATA 26, 76,435,AD0.29.43,.50, 03 r3e@ DATA 94.B9.CA,42.09,.00.43.F0 326 DATA HE. C1. BS, 3F.42.20.AC. C1 
S234 DATA A. 4; 42,68, BD S230 DATA 42,30,.DE,42,AD.2A,43, 80 V328 DATA @1,00.8R,99,.83,423,0E, 25 ibe 1 3) DATA BSF. 42.80, AR. CLs oa. oF 
S24a DATA AG, 'A6.42,FE 5244 DATA D7.42,S0.62:.42.02,00,AG 7240 DATA 42.AC,36,43,18,00,AG. 82 Fada DATA C2,AC. 35.43.89, 4F, 41.48 
S250 DATA AG Pa a2 08 S25 DATA FF.AD,B,42.CD.B1.42,F9 7258 DATA SC.36.43,P9.BB.42,8D,29 73954 DATA B9.6F.42.8D.HE. C1. Bo. oF 
S260 DATA oS 42,60, DE ca6@ DATA a2.CA,C2,3E6,63.42,8C,ER 360 DATA 43,89.04,42.80.2A.43.89 7960 DATA 42.90.AF CL. Boer. 42,30 
S27@ DATA AG. - EA. ER, ER Se7a DATA 42.AN,BS,42.80,29,43,A9 7378 DATA FD. 42.20.28,43.A9,08,8D 7978 DATA AD C1. CE. 25.43, 08.01. AS 
s2ea@ DATA ZA, ES. JCA. 19. FS S220 DATA 04,80,2A,43,20,70,43,AD 7380 DATA 27.42,20.70.43,AD,2B,43 7980 DATA 68.80. 34.43, 00. Ou. TL He 
Sra DATA AS. a1. 2 3,.60,ER,EA 5290 DATA 29.43.60, 8C,42.AD.2A,43 72908 DATA AC. 36.43,99,00,.43,AD, 20 P3908 DATA @: 44, BG, 05,48, 20,20. 44 
62a DATA ED.AS , BD. AB. 42 S960 DATA SD,05,42,A2,88.A0,. 66,42 7400 DATA 42,99, 0F,43,A2.00,B9,C0 S068 DATA 6 4A, BA, 85,48, 20, 65.44 
S214 DATA De. 12 S.FE.AG, 42  S81G DATA CIUAF.42,FO,@1,CA,8E,CE 7410 DATA 42.09.90,43.F4.01,CA,3A 8010 DATA 62. A2.04. 4A. Ba.a5. 48, 26 
crn DATA BC. AC CH, CS, 28 S92 DATA 42. AD, BS.42.8D.27,.43,AD 7420 DATA 99,12.43,0E, 36.43.00. 36 8020 DATA 28.44.60. 4h. Be, 42, 28 
S34 TATA 32,30, DE, Aa,42 S938 DATA BY. 42,80.29,43.A3,. 68. 20 7430 DATA 4%3,.16,C08.A@,62.58C, 36.4% S020 DATA oe, 44, Gis 4A, Ba ! el ! All ae 
St4@ DATA sa.k .20, 08, 87 S940 DATA 22,43,80,2A,43.20.70,43 7448 DATA BO.BE.42.8D.29.43.B9.C7 8846 DATA 43.08.88. AC. 33.45.F a, te 
Stcea DATA FE.AG 642, 66,FE S956 DATA AD. 29,43.3D,C08,42,.AD,2A 745@ DATA 42.:30.2A,43.5B9. FD, 42,50 e858 DATH SS. 0S. BS, 0. S343, HE, A 
S260 DATA AG. 42.68 .EA.EA.EA S96@ DATA 43.80,09,42,A2.00.AD,AF 746@ DATA 28,42,A9.00,.30,27.43,29 2660 DATA AD. 33.43.00,05,20. 20,44 
S27a@ DATA EA. 28.3 SCALA. 18 S97 DATA 42.Cu. B1,42,F@,61,CA.SE 7470 DATA 7@.43.AD,2B.42,AC,36,43 S070 DATA 06.07.20.69.44, 00.02.93 
S320 DATA FSA »43,60.E8 S9¢@ DATA D2.42.AD.P2.42.8D,C6.42 F48G DATA 99,15,43,AD,20.43.99,18 8890 DATA 82.80. 22.42, 85.05,03, 83 
Si3@ DATA ES.6A. FA.ER. ER. € 5998 DATA AS. 88, SD. BD 42. AD AC. 42.% 7498 DATA 43,82,90.89,06,42,05.66,# 3099 DATA Fe, Ge. Al. 34.43. F6, 85, 40 
S299 DATA 17936 S999 DATA 12016 7499 DATA 18496 £100 DATA Bé.44.60.¢# 

S4a@ DATA Az. 82.09, 20. 90.AS.42.C8 60008 DATA SD.CF,42,A2,03.19.7E.C3 75@@ DATA 43,F0.61.08.30, 99,16, 43 ; a 
S414 DATA 18.FA.A2,02,.A9.FF, 90.09 S@18 DATA 42,7E,BA,42,18.7E,07,42 7514 DATA CE. 36,.43,AC.36.43,146.068 READ". 

S424 DATA 42.90, AC, 42. 30. AF. 42.08 6620 DATA 7E,02,42,15.7E.0F,.42,7E Piz DATA AD.83.43,.8D,2F.43.AD. He 

5434 DATA 14.F4.A2,02.89.80, 90, A 603@ DATA DE. 42,CA,19.68.18.6E,.09 7534 DATA 43.30,34.43.AD.89,43.3D 

S444 DATA 42.90, 06.42.CA.14,F7. 90 6040 DATA 42.66,00,42.A0,03,80,35 7540 DATA 31.43, AD,04,43,AC.8?,43 

S459 DATA AE. 42.80. Bi.42. 80, 32.43 5@5@ DATA 43.A0,B2,42,.80.28,43,A9 ?558 DATA AE.GA.43.20,40,43,48,AD 

S464 DATA SD. 27.43.20. ba. 01,82, 95 6@6@ DATA @6,8D.27,.49,AC.25.43,BE 7560 DATA O5.45, 80, 2F. 43,0088, 43 

547@ DATA BC. AG, 42, 69,08,.48, 90, BS 6A7@ DATA DB, 42,86,29.45,BE,0F,42 7578 DATA 20. 26.42.A0,6B.43,930, 31 

S469 DATA 42,08. 14,F4, Al. B4,42, 50 66208 DATA SE,2A043.20.70.43,AC,35 7588 DATA 43,.6¢.20.40,43.6D,1E.43 

S494 DATA 27.43.AD, BS. 42,80,.29,43 609@ DATA 43.82.9@,AD.AC.42,D9,67 ?59@ DATA SC. 1F,43.96,24.43.AD, ac 

S504 DATR AG. AG. 20. 29,42.80,2R.45 7a6@ DATA 42,F0,81,CA,ES,E3,42,80 7609 DATA 43, 3D.2F,43,AD.8F,43, 20 

S510 DATA 28,70,43.A0, 29,43, 60, EA Fela DATA 31,43,89,.03,.42,30,2F,43 V61@ DATA 36.42.AD,12,43,380, 21,43 

sSe@ DATA 42. AD. 2A-.43.90.03.42,A2 7a2@ DATA ES.07,.42,8D.320,43,AD,2B 7620 DATA AD, OD, 42.Al,18.43.AE,13 

SsS2za@ DATA ag, AU. AE. 42,00. AF, 42,68 702@ DATA 43.AC,2C,43,280.40,43,42 7628 DATA 43,26,44,43,48,40,GE,42 

S549 DATA 31,CAR,3E.0C, 42, AD, B6, 42 7046 DATA 928,AC,35,.43,99,.E6F,42,68 7646 DATA 3D. 2F.43-AD.11.43.8D, 28 

S550 DATA 2D. 29,.43,.A9,08.80.2A,43 7058 DATA 99.EB.42,8A,99.F3.42,CE 7658 DATA 43,AD, 14,43,6D.31.43,65 

SS56@ DATA 20.74,43.A8D,29,42.80, DC 7868 DATA 35.43,18,AB,A@,@1,B9,EB eee DATA 26,44.42,2D,21,435,30, 22 

S74 DATA 42,50,05,42,AD,2A,42,8D 7H7G DATA 42,99.B9,42.B9,EF.42,99 767@ DATA 43.3E6.23.43.AD,15,43.8D 

ssa9 DATA €9.42,80,09.42.A2.FF,AD 7086 DATA C1.42,B9.F%3,42,99,.CA,42 7620 DATA 2F,42,AD, 18.43.80, 38.43 

S590 DATA AE. 42,CD. BG.42.F@,01,E8,¥% 7@9@ DATA 28,19,EBR,AG,61.B9.ED,42,% 769@ DATA AD. 1B,43,9D,31,43,AD,16,% 

S539 DATA 17696 7099 IATA 18176 7699 DATA 1636 


5 POKE53290,14:POKES3281,14 

19 PRINT"(T": 
2A PRINT "SRR *KESTART MATHS € 4x Ty 
3Q@ IFSS=OTHENGOSUBSAa:SS=1 
40 PRINT "IMRRRDBRBBTYOU WILL BE GIVEN 1 SUMS INVOLVING ADDITION "; 
SA PRINT"ANO SUBTRACTION TQ SCLVE.”" 
GQ PRINT:PRINT:IPRINT"LEVEL OF SUMS © 1-EASY..S5-HARO?) @pra 
7A GET L#:1IFLS>"O"ANOLE< "6" THENSA 
S0TO72. 
L=VALCLS) | 

INPUT "SIIBIHAT I© YOUR NAME": NAS 

PRINT "(Qieiete PRESS ANY KEY TQ START =" 
POKE19@,@:WAIT19S,1:POKEI9e,a 

FORSM=1TO1LAa 

PRINT" Kg": 

WJ=Lia@te=t 

MLsINTORMOS @)*1A4L? 

N2=INTS. RNOC@)*1O@tL? 

IFNicNZTHENIEA 

IF SM. @THENS#= "+" 2 AQN=N14N2 

TE SM>STHENS$="-": ANENI-Ne 

MIS=STREC NL) :N@S=STRE Ne) 
L1=LENCNM1$)-1!:LEe=LEN(C NZ$?-1 
PRINT!:PRINT!IPRINT!:PRINTTABC IS-LENCNIS393N1¢ 
IFS#="4"THENPRINT:PRINTTABRC 7) "CBR": 


START 
MATHS 


Start Maths is an addition and 
subtraction drilling program for 
the Commodore 64 suitable for 
ages 6 to 12. It first asks for the 
level of difficulty; enter ‘1’ for 
easy to ‘5’ for hard. You will 
then be given five sums involv- 
ing addition and five involving 
subtraction. 

After the ten sums have been 
completed you will be asked if 
you want any more sums. If you 
require more press ‘y’, if not 
then press ‘n’ to be returned to 
BASIC. 
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IFS$="-"THENPRINT:PRINTTABS 7) "Cal-ia": 
PR INT "SSSRRqSa]" : 

PRINTSPC( 15-LENC Ne $> >? Nes 

PRINT" ea) 


PR I NT ” SS EE 


Ft PRINTSPCC 15-A1>0"?" 
"PS IPRINTSPCt IS-Ai >"? 


nM 
NOU 
1] 


om Mn 


Ww mM mM w 
Se ogoogooage ogg s 


POKE198, a 
GET diode [FAS heMeee 


Ci 
i) fe 


O) 


":PRINT" . 


att 


IFAS>="@"ANDAS "! "THEN37O 
GCTO330 
PRINT "Siig" > « PRINTSPCC 15-A1) 7 AS 
380 IFAS=MIDS STRSC AND, LENC STR AN) > -A1+1,1)THENGOTO45@ 
Te) RONG ! ! "PRINT *MTRY AGAIN. " 


WWW WwW 
NOU 
o 9 


SMTHE ANSWER": PRINT"MIS -@":W=1 


410 PRINT "Siete" = SPCC 15- ALD: 


420 PRINTMIOS( STRSC AND -LENC STRSC AN) D-AL+1,1) 

430 IFA1=LENC STRSC( AND? > - 1 THENFORI =1 T0800: NEXT: NEXTSM: GOTOS 10 

44@ A1=A1+1:GOTQA3A0 

45@ REM CORRECT ANSWER 

460 IFAIL =LENC STR#¢ AN) > - 1 THENGOSUBE4@: SC=SC+1:GOSUB750: NEXTSM: GOTOS 10 
470 AIL=A1+1 


ORRECT! !@ "rW=1 
492 GOSUB640:GOTO300 

SQ FORI=1T01000:NEXTI:NEXTSM 

S1@ PRINT "G2"? 


HO YOU WANT SOME MORE SUMS Ye ae Be": 
538 GETCS: IFC#=""THENS3O 


340 IFCS="N" THEN! 120 

550 IFCS="Y"THENI@ 

S60 GQOTOS3@ 

S70 V=S4e7e2 

58@ FOCRI=@TO024:POKEV+!I,@:NEXTI 
3990 POKEV+1,6:POKEYV,206 

600 POKEVY+5S,5@:POKEV+t6 ,255 

610 POKEV+4,33:POKEV+24,15 


620 FCRI=1TO3@@:NEXTI:POKEV+1 ,@:PQKEV,@ 
638 RETURN 


640 V=542e72 

65@ FORI=@T024:POKEV +I ,@:NEXTI 

660 POKEV+1,91:POKEV, 140 

67@ POKEV+S,5@:POQKEV+6 ,255 

68@ POKEV+4,17:POKEV+24,15 

69@ FORI=17T015@:NEXTI 

700 POKEV+1,63:POKEV,149 

71Q@ FORI=1TO1S@:NEXTI:POKEV+1,@:PQKEV,@ 

72@ RETURN 

734 S=54272 

74Q@ FORI=O@TOQ24:PQKEV4+I ,AtNExTI 

75@ PRINT "MQ": 

760 PRINT " FORDRIRIFIRIOISIRIRRIRIFIE GREAT WORK. "-NASs "!! tm 
77@ FORT=17TO02SSSTEP1IS: POKES328@,12POQKES3281,1:FORZ=1TOQ8@:NEXTZ:NEXTI 
(720M POKES32234,14:POKES3281,14 


720 RETURN @6@ DATA 2,147,20:REM C 
@AA S=54272 970 DATA1®,2@5,2@:REM E 
@1@ FORI=@TO24:POKES+I,@:NEXTI 982 DATA 9,159,20:REM O 
820 POKES+3,7:POKES+t2,75 999 DATA 8,22,20:REM RB 
839 POKES+24,@ 19@0 DATA 11,114,2@:REM F 
84% FORI=-1TOe2a 1910 DATA 10,2@5,2@:REM E 
e5@ READ H,L,D 1920 DATA 93,159,20:REM D 
QABA FOKES+1,H!:POKES,L 192@ DATA 8,147,2@:REM C 
8720 POKES+5S ,64:POKES+6,75 1940 DATA 12,216,2@:REM G 
880 POKES+4,65!:POKES+24,15 195@ DATA 11,114,2@:REM F 
82 FORZ=1TOC#eS:NEXTZ 186@ DATA 9,159,2@:REM D 
eaa NEXTI 1970 DATA 18,205,2@:REM E 
91@ FORI=@TO24:POKES+1 ,@:NEXTI:RETURN 1080 DATA 3,147,20:REM C 
92 DATA 3,159,3@:REM DO 1990 DATA 9,159,2@:REM O 
930 DATA 10,205,20:REM E 110@ DATA 8,23,20:REM B 
94@ DATA 11,114,2@:REM F 111@ DATA 8,147,4@:REM C 


95@ DATA 12,216,20:REM G 1120 END 


What’s needed for the Commo- 
dore is a package of cheap 
graphics routines which will en- 
able high resolution graphics 
mode and make it easy to plot 
dots, lines, circles et cetera — so 
here they are. 

The HIRES package _ of 
machine code subroutines is 
loaded into the Commodore 
64’s memory from $C0O00 
(49152) to $C901 (51457), an 
area of memory which is not 
used by BASIC. The routines 
are accessible from BASIC by 
simple POKE and SYS com- 
mands. They allow setting up of 
bit mapped (high resolution) 
graphics mode, clearing the bit 
mapped screen, setting the col- 
our of the foreground and back- 
ground, and the plotting of dots, 
lines, circles and ellipses. With 
these routines in memory, you 
can write your own BASIC pro- 
grams using the subroutines 
described below. 

The subroutines which make up 
the package may be found at 
the following memory locations: 


(49584) to $C1CA 

Subroutine CLRSCN $C1CB 
(49611) to $C203 

Subroutine SETCOLR $C204 
(49668) to $C22E 

Subroutine DOT $C22F (49711) 
to $C27E 

Subroutine LINE $C27F 
(49791) to $C475 

Subroutine CIRCLE $C721 


(50977) to $C901 

The remaining memory space is 
reserved for variables used by 
the routines. 


To initialize bit mapped 
mode: 
SYS 49584 (SETUP) 


This routine calls two other 
routines: 
a) Subroutine SLRSCN at 
49611 which clears the bit map. 
This routine can be used by it- 
self to clear the screen at any 
time by (SYS 49611). 
b) Subroutine SETCOLR at 
49668 which sets the colour of 
each area of the bit map. The 
colour defaults to 3 (black on 
cyan), but may be altered by 
POKEing 49681 ($C211) with 
the number shown below, be- 


Subroutine SETUP $C1BO 

40 REM HIRES ROUTINES 

589 REM 

6@ REM MIKE GRIFFITHS - 19383 
70 REM : 

ea REM 


fore calling either SETCOLR or 
SETUP. 

POKE 49681,N where N = SC 
+ FO*16 

SC is the required screen col- 
our and FO is the required 
foreground (dot) colour. In both 
cases, zero = black, one = 
white, two = red, etc ... 

To plot a dot at any location 
(X,Y) on the screen, where X = 
0 to 319 and Y = 0 to 199, X 
must first be split into high and 
low bytes, so a_ complete 
routine would be: 


SYS 49584 (SETUP) 

POKE 253,1 (SWITCH TOG- 
GLE ON) 

HX = INT(X/256):LX = X-256*HX 
(SPLIT X) 

POKE 49581,Y:POKE 
49582,LX:POKE 49583,HX 
(POKE X,Y) 

SYS 49711 (DOT) 


The last three lines can obvi- 
ously be written as a BASIC 
subroutine and called whenever 
required. 

To plot a line on the screen 
the switch (2543) must be set 
as above, then the starting 
(X1,Y1) and finishing (X2,Y2) 
coordinates of the line must be 
POKEd. Again each X coordi- 
nate must be split into two 
bytes. 


GQ PR INTCHRS( 147) :PRINT:PRINTTAB( 4) "ROUTINES TAKE 104 SECONDS TO LOAD" 
100 LS=49152:HS=49360:95S=81392:C=493352e 


119 FORY=o0TO24 
12@ FORX=aTQ7 


12@ HB=INT( SSt+K)/25692LB=SS+% -HB*e56 


148 POKELS,LB:PQKEHS ,HB 


130 ULS=LS+1i:HS=HSt1 
168 NES 
117A BIl=128 

138 FORM=8TO? 

190 POKE49SS568+tx BI 
200 BI=B1/2:NERKT 


°SS=SS+320!:NEx 


Im BLOCK ONE": END 


IFCH=95743ANOSF=S51458THENPRINT"QK TO LOAD APPLICATIONS PROGRAM": END 
Ity¥ BLOCK TWO" =: END 


210 FORSK=8TO02S5 

228 SK=ESING #*%/4512)*65536 

220 HB=INTC S¥/“256) *LB=Sk-256 4HB 

2498 POKES@304+%,LB:PQKES@560+% ,HB 

coe NET 

268 FOKEC+4,@:PQKEC+S,@:POKEC+E, 100: PQOKECtY’ ,O 
1086 GOSUB15@0 

1Qa5 PRINT 

1MiGq LFCH=S99583ANDSP =506294 THEN1I&60 

1058 PRINT"DATA CHECKSUM ERROR 

1M6@ CH=08:GO0SUB1500 

1070 PRINT 

1@sa 

1090 PRINT"DATA CHECKSUM ERROR 

1588 REAOQ SP 

152A READAS: IFAS="*" THENRE TURN 

15240 L=ASCCLEFTS( AS, 199-48: R=ASC(C RIGHTS AF,1)2-48 
154Q PCHCL+7?eCLOLLIIKIEGtR+ 7 eC ROLL) 

1536 POKESP,PC:CH=CH+tPC 


SYS 49584 (SETUP) 
POKE 253,1 (SWITCH) 
POKE 49581,Y1:POKE 
49578, Y2 (POKE Y1,Y2) 
HX = INT(X1/256):LX = X1-256"* 
HX (SPLIT X1) 
POKE 49582, 
LX:POKE49583,HX 
(POKE X1) 
HX = INT(X2/256):LKX = X2- 
256*HX (SPLIT X2) 
POKE 49579,LX:POKE 
49580,HX (POKE X2) 
SYS 49791 (LINE) 

Again, the last six lines can 
be set up as a subroutine in 
BASIC to plot any line (X1,Y1) 


198 C=4935e2 
200 SYS 49584 


300 POKE 253,1 


900 XH=INTC XC 7256)? XL =KC-256 *%H 


600 POKE C,xXL:POKE C+1,®H:POKE C+t2,YC 


780 POKE C+3,R% 


800 POKE Ct4,RY 


9290 POKE C+5,IASPOKE C+6,FA 


1000 POKE C+?,Gwu 


1010 SYS S5ag77 


un 
a | 
i) 


SP=SP+1:GOTQ15260 
DATA 49584 
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DATA 358,60 
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to (X2,Y2). It should be noted 
that SETUP may only need to 
be called once in a particular 
program, and the switch re- 
mains set unless SETUP, 
CLRSCN or POKE 253,0 is 
used. These two lines are, 
therefore, excluded from the 
subroutine. 

To plot a circle, ellipse or arc 
a large number of parameters 
can be specified to describe the 
required curve. The routine 
below includes all options; note 
that a variable C has been used 
to simplify the routine. 


CSET C) 
( SETUP > 


(SWITCH) 


(SPLIT XC) 

CPOKE XC,YC) 
(POKE RX) 

(POKE RY)? 

(POKE IA,FA) 
CPOKE GW) 


(CIRCLE ) 


2340 DATA BO,AGO,C1,499,FF,31,FB,91,FB,58,60 
2908 DATA 78,20,eF ,C2,78,A0,AB,C1,38,£0,AE,C1,A8,AD,AC,C1,E0,AF,C1,B80,15,A2,02 


2414 DATA 8SE,A8,C1,AA,98,49,FF,18,69,01,A8,8A,49,FF,69,00,4C,BB,C2,C9,aa 


(XC,YC) are the coordinates 
of the centre of the circle or el- 
lipse, with XC again having to 
be split into two bytes. RX is the 
radius in the X direction and RY 
is the radius in the Y direction 
(up to 255 each). IA and FA are 
the initial angle and final angle 
respectively, where a full circle 
has 100 degrees. Curves are 
always drawn clockwise, so 0 
= ‘east’, 25 = ‘south’, 50 = 
‘west’, and 75 = ‘north’. 

GW is a variable which can 
be used to produce dotted 
curves. GW = 0 or 1 will pro- 
duce solid curves up to radii of 
160. Setting GW to a higher 
number (for example 10) will 
produce a dotted curve (GW = 
gap width between dots). 

The above subroutine can be 
simplified considerably if all op- 
tions are not required (default 
conditions will apply). If only 
solid curves are required, leave 
out line 1000 (GW defaults to 
zero). If complete curves are re- 
quired rather than arcs, leave 
out line 900 (IA defaults to zero, 
FA defaults to 100). IF circles 
are required rather than el- 
lipses, leave out line 800 (RY 
defaults to = RX). | 

When the routines are loaded 
into memory, they leave all of 
the BASIC memory area un- 
touched. However the bit map- 


DATA 72,20,CB,C1,72,A9,08,00,183,00,80,18,00,20,804,C2 
DATA 78,A9,20,900,11,08,80,11,00,58,60 , 
DATA 73,A9,00,85,F0,85,FB,A9,20,85,FC,A0,08,38,A9,00,91,FB,C0,00,F0,03 
DATA 4C,08,C1,A9,08,18,65,FB,85,F6,980,03,E6,FC,18,A5,FC,C9,3F,F9,03,4C 
DATA O€8,C1,A5,FB,C9,940,F0,403,4C,06,C1,58,6@8 

DATA 78,A9,08,35,FB,A9,04,385,FC,AA,AB,FA,AS,93,88,91,FB,F0,83 
DATA 4C,1e,C2,18,A9S,FA.65,FB,.85,FB,A9,00,65,FC,85,FC,CA,F0,03,9C ,@E,Ce2 


DATA 78,AC,A0,C1,CO,C7,B0,46,B89,00,C0,85,FB,89,00,C0,85,FC,A0,AF,CI 
DATA F@,00,09,01,08,323 
DATA AA,AD,AE,C1,C9,90,80,2B,6A,18,65,FC,85,FC,A0,AE,C1,AA,4A,4A,4A 
2338 DATA 9A,6A,0A,A8,8A,29,07,AA,A5,FO0,F0,09,B0,A9,C1,11,FB,31,FB,58,68 


ped screen, starting at 8192 
($2000) is in the middle of the 
BASIC program area. Thus a 
program plus variables of more 
than 8K will ‘crash into’ the high 
resolution screen memory area. 
This can be avoided by setting 
the bottom of BASIC above the 
hires screen area to 16384 
($4000), before loading a sub- 
sequent large applications pro- 
gram, leaving about 24K RAM 
available for BASIC. This is a 
system limitation, but not a seri- 
ous one, since most applica- 
tions programs will not ap- 
proach this size. 

The routines are loaded by 
the BASIC program listed in this 
article. Once loaded the BASIC 
loader program can be cleared, 
and the machine code remains 
in memory until you turn the 
power off. 

The routines can be called 
from machine code by using 
JSR and the appropriate hex. 
address. Machine code prog- 
rammers should note, however, 
that locations 251 ($FB), 252 
(SFC), and 253 ($FD) in zero 
page memory are used by the 
routines, and must therefore be 
avoided by applications pro- 
grams. 

If you have a machine code 
monitor you can speed up sub- 
sequent loading of the package 


> 


2e42a@ DATA DG,89,C8,00,00,05,A2 ,.00,4C,B8,C2,A2,01,8E,A8,C1,8C,39A,C1,80,98,C1 
e438 DATA AD,AA,C1,38,ED,A0,C1,98,0C,80,98,C1,C9,00,F0,0F ,A9,01 
2449 DATA 4C,£0,C2,49,FF,18,69,01,80,98,C1,A9,02,80,A9,C1,C9,080,08,03,4C,11,C4 
2450 DATA AD,AS,C1,00,03,49C,EC,C3,A9,00,80,9C,C1,80,90,C1 
2468 DATA AD,39B,C1,F0,03,9C,6C,C3,AD,9A,C1,38,£E0,98,C1,90,03,9C,6C,C3,AC,A9,C1 


247@ DATA AE,A8,C1 


e488 DATA CO,01,00,06,EE .A0,C1,49C,21,C3,CE,AD0,C1,20,5C,C4,48,A0,90,C1,E0,99,C1 
2498 DATA 30,eEF ,80,90,C1,68,80,9C,C1,48,E8,01,00,19,A0,AE,C1,18,69,01,8D,AE,C1 
e300 DATA AD,AF,C1,69,00,80,AF ,C1,4C,5B8,C3,AD,AE,C1,38,£9,01,80,AE,C1 


e585 DATA B@,03,CE,AF,C1 
2510 DATA 68,20,2F,C2,A0,AA-C1,CD,AD,C1,F0,03,4C,0E ,C3,58,60,A0,98,C1,48 


2520 DATA AD,9A,C1,80,98,C1,AD,9B8,C1,80,99,C1,68,80,9A,C1,AC,A9,C1,AE,A8,C1 
2530 OATA E0,01,00,14,-A0,AE,.C1,18,69,01,80,AE,C1,A0,AF,.C1,69,08 
25948 DATA 80,AF,.C1,49C,B1,C3,A0,AE,C1,38,E9,01,80,AE,C1,B80,08,AD,AF,C1,F@,03 
2550 DATA CE,AF,C1,20,5C,C9,98,A0,90,C1,€0,99,C1,30,15,80,90,C1,68,80,3C,C1 
2560 DATA 498,C0,01,00,06,EE,AD,C1,9C,02,C3,CE,AD,C1,68,20,eF ,Ce,78,AD,AC,C1 
e578 DATA CO,AF,C1,00,@A,A0,AB,.C1,CO,AE,C1,00,02,58,60,4C,80,C3,AC,A9,C1,080,0e 
es75 DATA 58,680,C0,01,F@,06,CE,A0,C1,49C,00,C49,EE,AD,C1,2@0,eF ,Ce,78,AD-AD,C1 


T/ 


‘ 


2530 
2530 
2600 
2618 
2628 
2639 
2700 
2718 
27e2o 
2738 
27490 
2750 
2760 
277o 
2780 
2730 
2800 
2210 
2320 
22398 
28499 
2250 
2360 
2e7a 
2838o 
2eoaa 
29300 
esaia 
2320 
2a3a 
23990 
2458 
2360 
2en7a 
2380 
es9a 


DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


by saving it directly in machine 
- code form as below: 

With your monitor in memory, 
load and run the BASIC pro- 
gram. Enter the monitor and 
save HIRES by — 
S“HIRESMC’”,01,C000,C902 
S“0:HIRESMC” ,08,C000,C902 


CO,AAR,C1,F9,03,4C,EC,C3,58,60,AE 
AD,AE,C1,18,69,01,80,AE,C1,AD,AF 


You can then use 
LOAD"“HIRESMC”,1,1 or 
LOAD“HIRESMC’”,8,1 to load 
the package directly into the 
correct place in memory. 


M. Griffiths 
Lindisfarne NSW 


,A8B,C1,00,02,58,60,E0,01,00,14 
,C1,69,00,80D,AF,C1,4C,43,C49,AD,AE,C1 


38 ,£9,01,80,AE,C1,B80,08,A0,AF,C1,F0,03,CE,AF,C1,20,2F ,Ce,78 
AD,AF,C1,CD,AC,C1,00,0A,AD,AE,C1,CD,AB,C1,00,02,58,60,9C,11,C4 
AD,9C,C1,18,60,9A,C1,80,9C,C1,A0,90,C1,69,00,80,90,C1,A0,39C,C1 


38,ED,98,C1,60,*% 
58832 


80,84,C6é,80,85,C6,A2,11,18,66£,85,C6,6E,84,C6,6E,83,C6,6E,382,C6,90,13 
18,AD,8@,C6,60,84,C6,80,84,C6,AD,381,C6,60,85,C6,80,35,C6,CA,D8,DC 
60,£A,EA,EC.7F,-C4,F0,1E,28,6E0,70,C9.48,98,ED,7E,C4,10,1C,A8,68,49,FF 
18,69,01 ,48,98,49,FF,69,00,AE,7F,C494,4C,EC,C6,18,60,70,C494,48,98 

60,76 ,C49,A8,68,60,EA,20,9F ,C1,AC,79,C9,AE,7A,C9,4C,07,C7,AD,77,C4 

FO ,04,88,88,E8,E8,C8,CA,AD,39E ,C1,38,E9,19,80,9E,C1,AD,9F ,C1,E9,00 
80,9F ,C1,B80,E2,8C,79,C4,8E,7A,C4,60,A9,00,80,79,C4,80,77,C4,80,7B,C49 
@0,7C,C4,80,39E,C1,A9,FF,80,7A,C4,380,78,C4,A0,CD,C@,C9,65,38,01,60 
C3,19,B80,06,20,F0,C6,4C,.97,C7,38,E9,19,CE,79,C4,CE,77,C4,EE,7A,C4 

EE ,78,C4,CE,7C,C4,C9,19,B80,06,20,F0@,C6,4C,97,C7,E9,19,EE,73,C4 
EE,77,C4,CE,7B,C4,CE,7A,C4,CE,73,C9,C9,19,80,06,20,F0,C6,9C,3r,C/r 
E9,19,CE,79,C4,CE,77,C4,EE,7A,C4,EE,78,C4,EE,7C,C4,20,F0,C6,AD,CE,C@ 
23,60,CD,C0,B80,02,69,64,60.9F,C1,A9,00,30,9£,C1,A0,CB,C@,CO,CC,Ce@ 

BO ,93,A0,CC,C@,A2,00,C9,00,F9,0E,80,76,C4,A9,A3,38,E0,76,C4,98,03 
E3,80,F8,E90,00,00,01,68,¢E,82,C6,AC,CF ,C0,00,01,C8,8C,80,C6,A9,00 

80 ,83,C6,80,81,C6,20,90,C6,AD,32,C6,80,CF ,C8@,80,76,C4,A0,CC,C0,D0,06 
AQ,CB,.C@,80,CC,C9,AC,7A,C4,89,80,C9,80,20,C6,29,80,C5,80,81,C6 
AD,CB,C@,80,82,C6,A9,90,380D,33,C6,20,30,C6,A0,84,C6,80,70,C4,A9,08 
#0,7E,C4,AA,A0,7C,C4,80,7F ,C4,A0,C8,C0,AC,C9,CO,20,C8,C6,E8,00,F0,03 
4C ,85,C8,80,AE,C1,38C,AF,C1,AC,739,C4,B9,80,C49,80,30,C6,B9,80,C5 
e0,21,C6,a0,CC,Ce,80,2%2,C6,.A9,@0,80,83,C6,20,90,C6,AD0,89,C6,80,70,C49 
AS ,0@0,80,7E,C4,A8,AA,AD,7B,C4,20,7F ,C4,AD,CA,C8,20,C0,C6,E9,00,F0,03 
4C,25,.C8,C@,01 ,€0,06,90,A0,C1,2c0,2F ,C2,A2,01,B0,77,C4,00,16,B80,79,C49 
C9,FF ,08,09,0E,77,C4,0E,79,C49,4C,BF ,C3,FE,79,C4,4C,BF,C8,BD,73,C4 
00,15,FE,77,C4,FE,79,C4,BC,7B,C4,F0,02,C8.C8,88,98,90,7B,C4,4C,BF ,C8 
DE ,79,C49,CA,F@,C5,A9,19,80,70,C4,A2,FF,8E,7F,C494,E8,8E,7E,C4,A0,9E,C1 
AC,SF,C1,29,C0,C6,E0,00,F0,.11,49,00,80,C0,C0,80,CF ,C8,80,CC,C0,AS,69 
80 ,CE,C®,60,80,3E,C1,8C,3F ,C1,CE,76,C4,080,8C,A0,CF ,C@,30,76,C4 


4C .F9,C7,% 


DATAMAKER 


As a person who writes many 
programs in machine code for 
the Commodore 64 | have 
found a great need for a utility 
program that will convert a 
block of data into Basic DATA 
statements. The attached pro- 
gram does this very quickly. 

It is written entirely — in 
machine language and doesn't 
interfere with the Commodore 
development kit, on which it 
was developed. 

To use this utility type in the 
BASIC loader and save it. Run 


78 


it and after a while, if all goes 
well, the usual READY prompt 
will appear. The DATAMAKER 
utility is now installed and is 
ready to use at any time until 
the computer is turned off. 

To call the routine type: 

SYS 50768, first, last, line 
number where ‘first’ is the deci- 
mal value of the starting loca- 
tion of the block of data to be 
converted into DATA. state- 
ments. ‘Last’ is the decimal 
value of the last element in the 
block of data to be converted 


and ‘line number’ is the line 
number that you would like the 
DATA statements to start num- 
bering from. 

There is only one restriction 
that | am aware of with this 
routine that the user should 
know about. The three param- 
eters, apart from being in deci- 
mal, must be less than 32767 or 
an illegal quantity error is is- 
sued. This might pose problems 
if your data is located in the top 
half of the computer's memory 
or you want very large line num- 
bers. 

The problem is caused by 
one of the BASIC ROM routines 
used to process: the param- 
eters. To overcome this you 
must play a little trick and enter 
the desired ‘large’ number in a 
modified form. Let’s say that 
you want the DATA statements 
to start numbering from 50000. 


Instead of entering 50000 as 
the start value you must calcu- 
late 50000 — 65536, which is — 
15536, and use this as the 
value. You might enter, for the 
previous example, 

SYS 50768, 832, 895, - 
15536 

So, if the number to be used 
is greater than 32767, then you 
must subtract 65536 from it and 
use that value. 

lf you want you can get the 
computer to work the value out 
for you. For example, this would 
achieve the same result as be- 
fore 

SYS 50768, 832, 895, 50000- 
65536 

That's all there is to it! 


Peter Thacker 
Burchip VIC 


19 PRIHT "Gye TATAMARER 29230 DATA 32. 89,207.23. 250,287. 298 
2@ PRIHT PF. THACKER cise" 20246 DATA 3.238.251.2087, 36.172. 245 
30 FRIMT RETO CALL. TYRE" 20250 DATAZS?. 237. 258,207.172,. 249, 287 
44 PRINT" SYS Farés, FIRST. LASTILIWE Mos" 20268 DATAZSY: 251.207. 144,101. 24.1%: 
SA PRINT "SMHERE FIRST= START LOCATICNH TO CONVERT" 2@27@ DATAS32. 267-163. 3.141.252. 20" 
6a PRIWT" LAST= LAST LOCATICW TO COWVERT" 2286 DATAI?S. 252,207,165, 8.141.255 
7a PRINT" LIHE HOS= FIRST LINE NUMBER IM THE” <8296 DATAZO?. 173.252.207.133, 251, 173 
Sa FRIWT"O RESULTAHT BASIC PROGRAM" 28308 DATAZS?, 267.132.252.168. @,159 
S48 PRIMT@BASIC LIMES GO IN STEPS OF 14" 20314 DATA 44.145,.251. 32.238.199,. 262 
iAG PRIHT'ATHIS ROUTIWE DOQESHT INTERFERE WITH" 2A320 DATAZHS.164, 356,173,252. 207,232 
118 PRINT COMMOTIORES DEVELOPMENT KIT" | 282280 DATA 1,141,252. 267.172. 252. 26" 
126 FRIHT'@FLEASE WAIT WHILE IT IS LOADED" 20246 DATRES3, Wil4l. 253, 28F. 1s. 252 
124 GOSIELS@ 28633590 DVATALS?. 123. 251,173, 253.287. 132 
14@ WHEW 20366 DATAZS?S. 168, @,.169,. 6.145.251 
134 REM DATA LOADER 20370 DATA 32.228. 195,173. 248, 247. tog 
Léa LOC=Sg763 20380 DATAZS3S. 173,247. 267.133.254.166 
i°Q@ READ: IFA THEMS 38 | 203390 DATA @.173. 252.287.145.253, 288 
{Sa CSett+ . 28400 DATAI?72. 252,297,145, 2535, 76.129 
134 PRINT BCHECK SLUM= ";CS;" HEADING FOR ": 7131 26416 DATAL9SS. 24.173.252. 207.185 2 
ZAHA POKELOC, « 280420 DATAI41. 252.207.173.253. 207,165 
21@ LOC=LOC+1 244346 DATA 8.141.253. 287.173, 252. 267 
228 GOTOLTA 26446 DATAISS. 231.173.2535. 207,135, 252 
238 IFCS=/1518THEM 288 | 26450 DATALES, 4,152,145. 231. 260,145 
244 PRIHT"EHECKSUM ERROR..." , 2A464 DATAZS1,. 266.145 .251. 32.238, 199 
2580 FRIHT'ECHECK DATA STATEMEMTS IN LINES" 26476 DATALITS. 246, 267.133.253.173. 247 
268 PRINT Mza@a0-29999" 7 204488 DATAZS?. 133.254.1680. G.1FS, 252 
274 EMD 289498 DATAZA?. 145.253. 208.173.2553. 207 
280 LOC=53681:CS=6:FRIHT'S 2ea5@A TATAISS, 233, 24,173. 252,297,165 
298 READH: IFX<G@THEHZSA 20510 DATA 2.141.252. 207.173. 252, 207 
380 CS=CS+x eAx20 DATAIOS. 8.141.252. 267,173. 252 
318 PRINT"BICHECK SumM= ":CS:" HEADING FOR ";16399;" 20536 DATA@A?. 133. 45.173. 252.207, 133 
326 POKELOC. * 24344 DATA 46.169, 67,14 2.169 


328 LOC=LOC+1 28558 DATA 776.141.1280. 
346 GOTO2Sa | eA5e8 TATALZ1. 2.165. 
3098 IFCS=16389THEH 404 ' 26576 DATAIE9. 4.135, 
366 PRINT"OIOHECKSUM ERROR..." 2893586 IIATA @. Se, 158.. 
376 PRIHT'ICHECK DATA STATEMEWTS IN LIWES" 29598 DATA 36.238. 252. 
338 PRINT "Beesee-39999" 26608 UATARES 2. 287. 36 

396 END 24618 TATA-1 


APO CO ie he 


if 
ay ea gy 


406 RETURH SSAA TATALI?S. 167. S. 72,173,188, 2 
26600 DATA 32. 222.199,165.161.141,.258 SHRI DATA Pe. 173.189. 2. 72.169, 32 
26610 DATAZO’. 165,106,141. 251,.287, 32 SHAS DATALSI, ier, 2,141,168, 2,169 
20620 DATAZZS. 199.165.101.141. 248. S87 . SAA38 DATA 48,141,169, 2,173,176, @ 
20038 DATAIES. 160.141.249.207, 32.228 S804 DATASE1., 8.246. ve. 235,163, 2 
20048 DATAI99. 165.101.141.254, 207.165 SGG58 DATALAS. 169, 2.2681, 38,240, 6 
26056 DATAI86.141,.255, 207.165. 43,141 SHA668 DATASSE. 17S. 2. 776.114.287.169 
20660 DATAZS 2,207,165. 44,141,253, 2a7 SAa7a DATA 48.141,.169, 2,173.1688, 2 
200/70 DATAL?S. 252. 28F.141,246,.207,17% SAGA TATAZAL, S2.288, 8.169, $9,141 
A029 DATAZSH, 207.141.247.287, 82. 2a “HAS TATALeES., 2. 76.131.287, 238.169 
2AG36 DATAISS. F2.239.199,172,. 252,207 S4108 TATA 2.17°R-168, 2.201. 38,288 
24166 DATALS2. 251.173, 253,287,133, 252 SEL1@ DATAZSE. 169, 486.141.1688, 2.173 
26110 DATAICG., 4.173.254, 207,145,251 S@128 DATAIS?. 2.281. 32-205. 8,189 
26126 DATAI7S, 255, 207,266.145,251- 24 SALES TATA 45,141,167. 2. 76,131. 287 
24120 DATAIC’S. 254.267.1835, 16.141. 254 S414 DATASSS.167. 2. Fe, 131,287,156 
24146 DATH287. 172.2355, 267,185, 8,141 22154 TATA @.1?3.16?. 2.1435,251-173 
2913560 DATAZLSS,. 287. 32,238,199. 32.238 SA1i6M TATAIGS., 2,260,145, 251.19°S, 759 
2A16A@ DATAL99.173.252,207,123,251.173 “AiR TATA 2. 2h. 14%, 251,164. 141.169 
20170 DATAZSS,. 207.133.252.168. G. 163 Sa1ee@ DATA S.184.141,188. 2.164.141 
ZA1SG@ DATALIZI. 145.251, S2.228.199, 162 SALSA TeITALS?. 2, ae 

20190 DATA 7.168, : ZA7 133 S828 TATA? 

ae 


2A7, 133,252,173 
soud. 173,251. 297 


(053,141,178, 2 


20260 DATAZS1.1 
28210 DATAZSS. 2 
26224 DATA 33. 254. 
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TDIRG4 


Got a tape with files on it but 
you don't know what files or 
where? Or perhaps you just 
want a neat printed listing of the 
files on the tape for your re- 
cords. 

TDIR64 (for Tape Directory 
Program for the Commodore 
64) provides a catalogue of files 
on a tape. The output includes 
a user supplied identifier for the 
tape, the date, file names, type 
(program or data), the file size 
(in bytes) and optionally the 
tape counter at the start of the 
file. 

The program asks you for the 
output device, Y = Printer, N = 
screen. Answer Y to the LOG 
TAPE COUNTER prompt to 
select that option. Up to 16 
characters may be entered for 
the tape identifier. The date 
must be in an 8 character for- 
mat. 

The files open at line 300 
opens the next file on tape. The 
name of the file is found starting 
at byte 5 in the tape buffer 
(lines 320 — 350). Bytes are 
numbered starting at 0. By 
PEEKing the tape buffer | found 
that programs are flagged by a 
1 in byte 0 (line 510). Bytes 1 
and 2 contain the program start 
address in low byte, high byte 
_order (line 580). Bytes 3 and 4 
contain the start of BASIC vari- 
ables address (line 585). The 
difference is the program size 
(line 590). The size of data files 
is calculated by counting bytes 
(lines 540 — 560). 

If the tape counter option is 
requested the program prompts 
the user to enter the counter. 
This is adjusted to allow for the 
first block containing the file 
name (lines 420 — 480). 

The program loops (line 660) 
until the RUN/STOP key is 
pressed. 

Lines 1000 — 8999 contain |/ 
O subroutines. 


Richard Wooler 
Paraburdoo WA 


10 REM HRRERRERERERREMRERERERREEHEREE EE 


20 REM # 
38 REM * 
40 REM # 
SQ REM * 
60 REM ™ 
70 REM # 
8@ REM * 
85 REM & 
86 REM 


TUIRE 4 
TAPE DIRECTORY LISTING 
(C> RICHARD WOOLLER 
PARABURDOO 14 SEP 1983 


% 


SRR sss ee eee 


1480 
1416 
1626 
1836 
1946 
1056 
19993 
a5 ]] 5) 
eb2e 
2339 
2999 
3088 
3002 
3804 
3886 
3018 
3815 
202 

3436 
3048 
3850 
3855 
3068 
3876 
3096 
3108 
3118 
3126 
3136 
3399 
3666 
3018 
58208 
3999 
15)4) 4) 
8016 
2026 
89993 


TP=1:SC=3:PR=4:REM >> DEVICES 
IN=1 :OUS2: REM >> LOGICAL UNITS 
RD=0:UG=1 : REM >> ACCESS MODES 
TB=628 : REM >> TAPE BUFFER 
GOSUB 2000:PRINT "rim" +L$+"m" 

REM >> PROMPT FOR OUTPUT DEVICE 
PRINT "PRINTER OUTPUT ('¥/N)?2" 
GOSUB 18@@:GOSUB 8000 :LPZ="ES% 
OD=SC: IF LP% THEN OD=PR 

PRINT "LOG TAPE COUNTER ¢¥//N)?" 
GOSUB 100@:GOSUB 8@@@: TCZ=VES% 
OPEN OU,0D,UG:GOSUB 2020 

GOSUB 3200 

REM >> OPEN FIRST FILE AND DELETE 
REM >> PRESS PLAY ON TAPE PROMPT. 
OPEN IN, TP.RD: REM >> OPEN FILE 
GOSUB 8@@0:GOSUB 8000:G0TO 320 
OPEN IN. TP.RD: REM >> OPEN FILE 
REM,2> GET FILE NAME FROM BUFFER 
F al 

FOR A=TB+S TO TB+20 
F$=F$+CHR$(PEEK¢A) ? 

NEXT A 

REM >> GET TAPE COUNTER 

TS" HK" 

IF NOT TC% THEN 5@Q 7 
INPUT "TAPE COUNTER" i CT:GOSUB 8200 
IF CT<S OR CT2999 THEN 430 

REM >> CORRECT FOR FIRST RECORD 
CT=CT-5: 

TS$=STRECCT) : 
TS$=RIGHTS(TS$, LENCTS$)~1) 
TS$=RIGHT$("GB"+TS$, 3) 

REM >> GET FILE SIZE 
PR4=PEEK(TB)=1:REM >> PROGRAM? 

IF PR% THEN 570 

REM >> DATA FILE, COWNT BYTES 
BY=@:TY$="DATA —" 
GET#IN, C$: BY=BY+1:IF ST=@ THEN 550 
GO TO 680 

REM >> PROGRAM FILE SIZE IN HEADER 
TY$="PROGRAM " 

PS=PEEK(TB+1 )+PEEK(TB+2)4256 
PESPEEK(TB+3) +PEEK(TB+4 ) #256 
BY=PE-PS 

REM >> CLOSE FILE AND PRINT LINE 
CLOSE IN 

BS=RIGHT$(" ——"+STR$CBY), 5) 
L€=TS$+" "he E+!" "+TY $+" "+B 
GOSUB 500 

GOTO 300 

REM #% SUIBROUTINE YES/NO ANSWER 1m 
REM >> ANSWER RETURNED IN YESY 
GET K$: IF K$="" THEN 1028 
VESK=K$=""" IF YES% THEN 1050 

IF _K$<>"N" THEN 1010 

GET K$:1F K$<>"" THEN 105 

RETURN | 

REM #* SUBROUTINE HEADER ## 
L$="# TDIR64 - TAPE" 
L$=L#+"DIRECTORY LISTING - ##" 
RETURN - 

REM &# SUBROUTINE TAPE NAME ## 

IF NOT LP% THEN 3016 

GOSUB 2000:GOSUB 5000 

L$="":GOSUB 5800 

INPUT "TAPE IDENTIFIER"; TNS 

GOSUE Seae 

IF LENCTN$)2=16 THEN 3040 
TNS=THS+" "GOTO 3020 
TNS=LEF TSC TNS, 16) 

INPUT "DATE "i D$ 

GOSUB 00 

L$="TAPE : "+TN$ 

L$=L$+" DATE "+LEFT$<D$,8) 
GOSUB S@@Q:L$="":GOSUB 5002 
L$="LOC_ FILE-NAME " 
L¥=L$+"TYPE SIZE" 

GOSUB 580 

L#="":GOSUB 5000 

RETURN 

REM «# SUBROUTINE PRINT LINE 
Mg="":1F LP THEN M$=" : 
PRINT#OU, MS+L$ 

RETURN 

REM SUBROUTINE DELETE LINE ¥ 
PRINT "TI" +L$+L$+"71" 

RETURN 


we TDIRE4 - TAPE DIRECTORY LISTING - mm 


TAPE 
LOC 


203 
Q67 
a89 


TAPE#001 DATE 1479/83 
F TILE-NAME TYPE. SIZE 


BREAKOUT 64 PROGRAM 7891 
TDIRE4 PROGRAM 2531 
TDIR64 DOCUMENT DATA 1879 


CHARACTER MAKER 


After hours of using a pencil the left arrow key and two co- 
and paper to make up my user ordinates to delete a pixel. 
defined graphics | decided to You may create your char- 
make up a program to do the acter by pressing F1 or use 
job for me. other features such as rolling 
Using the program is easy - the spike in four different direc- 
use the numerical keys to fill in tions or reversing the character Jarrad Webb 
a pixel as a co-ordinate and use and then creating the character. Henley Beach SA 


& FRIWT't" 

4 CH=16e6: 4=1 164 

14 FRIHT" CHARACTER MARER m2" 

11 PRIHT"@YPE IM THO HUMBERS TO SELECT THE SPACE) TO EE FILLED TH." 

12 PRINT "GFRESS TS AND THE CORDS. TO RUE OUT" 

14 PRINT "GRIRPRRBBBIS  FRESS SPACE To START @" 

15 GETHE: [FAS<>" "THENLS 

13 PRIHT"(iies4sers" 

26 FORT=1TOS 

SPRINT’ TTTTTTT 1" 1: HEXT Sa FOR Cs Looe aT Dense? Hella? POREC. Tel HEST 
32 PRIHT"Q@RBBRITUFE IH GFI@ TO EHTER THE CHARACTER" cag PR THT "GERITHE CHARACTER Por THE riTEL " 

23 PRINT"@RBRBITPE I} FOS To REVERCE THE CHARACTER” 618 FOPI=170& 

t4 GOSURESA E20 FRIHT ERT ToT MENT 

35 GETAE: [FAS=""THEHSS 630 PREIHT'GRIIS THIS: @ B&R" 

TE OOSUE LAB : E46 PRINT @RBIG VOU WAHT TO DO AMOTHER OME oe Ae 
oy [PA#="*" THEMCH=ce  GOTOSS 6508 GETA: IFA" "THEHESA 

Be TFAE="@" THEME Bea TFAF="S"THEMPORESS2°% 2: 21° ROH 

3 TF R=" 8" THEME? 1 GOSUET AR . erQ TFAS= THN THEHPORES 27°. 2 EMT 

48 GETES IFES=""THEN48 SSA GOTOSSA 

42 ABVALCAE? TAR FOR T= L1MOTOLSS2sTERIA 

42 BeEVALCES ® a | FLA FOR I=<170& 

44 TF Ae. ORB. THEHSS Te@ IFPEEKS I+ 12 SP SQTHEMPORE I+ 1. Sa GoToOTAn 

te AeA-] BeB-d . | 3 roe IFFEEKS J+] o <> 16QTHEHPOKET+12. 160° GOTOr4e 

iis Boe P4ea HESTI - 

R= LLS4+H+n r48 HEAT I: RETURH 

POKEO. CH Toe FORJ=11@27TO1383STEFIa 

A CH= Len ONTOS foo FORT=1708 

AA FOR T= 1 1a" TOL SESSTEPR A+ Ve 

S18 FORT=iToe 763 FR INT "Git = 2 345678" 

S20 IFPEERCIED) SD 1G0THEMPORE I 1. 32 GoTo3e8 ré4 PRINT "GSR ERRRRB) 1 0 2 G0 a Gl ea 
230 READA. & roa HESTI : NEY TJ: ate 

Soa TF Re TTHENT=TrE RESTORE Goyopoo | cag FOR J=1383TO1 LASS TERA 

S58 GOTH on $1G FORI=STOISTEP-1 

HET] S15 PRINT" SRRRRERBEPR] EX] Gl) Gl Cll Cl Gl Cl am" 
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TINYGRAPH 


In developing programs on the 
Commodore 64 there has been 
a need to use built in, and easy 
to use, graphics commands. 
Below is a short program that 
inserts itself into the BASIC 
interpreter and adds these com- 
mands. To make the program 
short and to provide one-key 
commands three unused keys 
on the keyboard have been 
used rather than tokenising 
three, more meaningful, 
graphics words. 

The commands are: & border 
colour, screen colour — which 
will clear the screen and re- 
place it with a high resolution 
screen ready for drawing; 
'x1,y1,x2,y2,colour — will draw a 


line between (x1,y1) and (x2,y2) 


in the specified colour; ! border 
colour, screen, character — will 
replace the high-res screen by 


the normal text screen and the 
characters will be printed in the 


specified colour. 
Each colour is a value from 0 


to 15 and corresponds to col- 
ours that can be produced by 
the C64. For example 0 = black, 
1=white, 2=red and so on (i.e. 
one less than the number on 
the number keys). Depending 
upon the screen colour, the line 
may not appear the colour that 
you wanted. 

The co-ordinates that are al- 
lowed for the x and y values are 
0 to 319 for x and 0 to 199 for 
y with (0,0) being in the top left 
hand corner — so essentially x 
measures how far horizontally 
you've gone and y how far verti- 
cally you've travelled. Should il- 
legal values be used then the 
draw command will automati- 
cally return to the normal text 
screen and display an ILLEGAL 
QUANTITY ERROR message. 

A word of warning. If some 
other part of your program has 
a fault that causes an error 
message to be printed when 
you are in the graphics mode, 
the screen will not revert back 


to the text mode and a line of 
coloured squares will appear.on 
the high-res screen in place of 
the message. You will have to 
manually restore the text screen 
by using the ! command. 

All the values can be any 
legal BASIC expression and are 
not confined to simple numbers 

- except if the commands are 
used directly and not in a pro- 
gram (here they must be pure 
numbers). So, for example, in a 
program the colour code could 
be SQR( LOG (PEEK(24* 
1024) +1) but directly it must be 
1 or 2 etc. 

One other restriction is that, 
when used in programs, each of 
the commands must be pre- 
ceded by a colon(:). 

Program three shows 
examples of the use of these 
commands to draw lines, circles 
and to fill in regions. 

To add these commands to 
BASIC type in the loader pro- 
gram (program one) exactly as 


18 LOC=49152° PRINT" TIL OADIHG" 1448 DATASS.FB.AD. 30.83.80. 48.82.A5 
28 READS: IFDS="*" THEN1 2a 1414 DATAFB.9D.30.03,AD.3F.89.95.FB 
25 FRIHT"SAT "LOC; "HEADING FOR sasa7" 1420 DATARD. 2C.83,80.3F,83,.A5.FR.80 
34 Wee 1438 DATASC,@2,.AD.41,.03.85.FB.AD. 3E 
40 FORI=17T02 144@ DATAGS. 8U.41,.83,AS.FB. S80. 3E.82 
30 FS=MIDScls,1,13 1456 DATAG@, 20.19,.C8,4C.,.A2,C1.28.18 
6a GOSUESAA 1468 DATACG., 20,.18,.C8. 20, 9E.AD.A9,81 
rR V=eVe1l6+P 1478 DATASS. FC. AS. 46.95.FB,.20.193,C1 
88 HEXT 148@ DATAZA, AR. B1,AS.65.80.3C,.83,AS 
98 POKELCC, Vv 1498 DATAG4. 30. 30,03,20,19,C08,20.9€ 
1H T=T+y 15@@ DATAAD. AS, AB. 85.FC.AS.C8.$5.FE 
11@ LOC=LOC+1 1514 DATAZA.19.01.20.AA.B1.A5.65. 50 
len GOTOeA 1528 DATASE,.@2,.26.19,.C@,20,9E,.AD,A9 
138 IFT=1646417THENMSYSS6475 1520 DATAG1.25,.FC.A9,.40,.95,FF,28.1¢% 
148 PRIWT"OOPS!...CHECK THE DATA" 1544 DATAC1., 2@.AR. B1.AS.55, 30, 3F. 83 
iSe@ END 1554 DATAAS.64.80.48.03,.20,.15,.04,28 
SQM P=C4S-ASC OPE) HCP ECH"9" 9 1568 TATAZE. AD. AS. @6,85,.FC,A9.C8, 985 
D1 P=P+CS5-ASC OPS) ECP SSH" AD 157@ DATAFB.2@.12.01,2@.AAR.81.A5.65 
s24 RETURH 158A DATASI.41,03,28.18,00,20,1F.C9 
faa DATARS, 4C,95,84,A9,28,35,25,A9 1598 DATAQA, AA, AA. AA. S0.49,83, AD. 20 
1418 DATACG, 85,86,69,26,.53,45,50,45 16@8 DATARS. CD. 3F.83,.08,.15,AD. 30.83 
1@28 DATASS,54.5F.52,41.57.E6.7A, 08 1614 DATACD. 48,62, 00,080.Az2,86,A9,88 
i@sa DATA@2,. ES, 7B, 68,20. 3E.AD,20,AR 1620 DATASD, 41.83.CA.08.FA. 40. AG. Ce 
144@ DATABR1,.AS,.65,66,EA.C9,26,. 08,63 1638 DATAAD. 48,.82.AC,3F,83, 20.31. B2 
1058 DATA4¢C,60.C@.C9,21,06,83.4C, DA 164@ DATAZS.OF. EC. AD, 20.82,AC. 30.83 
196@ DATACG,.C9, 27. 00,02.4C.96.C1.ER 16528 DATARS. 21. B3, 20, 50,01, 26.33. BE 
1878 DATASS.E9,3a,4C,987,@a,C@,F4,4C 1666 DATAZA,46.01.A9.88,AC. 41.82.28 
1086 DATADG.CG.AG.88,B1.7A,09,.14,.CB8 167°@ DATAS1. Bs. 2e.GF. PC. AS, aa, AC, SE 
1698 DATADG, 68,.C8,C8,81,.08:.F4.4C.96 1686 DATAGS. 24.91.P2,20,50, 01. 2h. 52 
1186 DATAC1.CS9., 3A. 88,8A.C9.28,F8,87 1698 DATARS, 20,9F. BC. 28.51,01.26. 50 
1116 DATASS.E9, 3@,38,E9,08,60,40,73 17Ba DATAC!. 26, 12. BB, 28.46.01.49. a9 
1126 DATAGG. 24.198.C8.4C0, 79,00. 280,18 1718 DATASS.6&,EAR. ER. 2@.AR. B11. AS. 88 
1130 DATACS, 24.12,.C8,28,1F,Ca,S0,28 1729 DATACS.&5.00,87,05.64,.08,.82.4C 
1148 DATADG. 26,18.C8.26.1F.C8.85,F0 1738 DATRE?’.C2.AS,A4,AB,81,.20,91. 82 
1156 DATAAD. 11.06.89, 26.80.11.08.AD 1744 DATASZA. 71,.04,.26,50,01.20.12. FE 
1166 DATAIS.0@,29.F0,09,809,8D.19.18 1758 DATAZS. 46.01,40,63.04.C0. 36.82 
117@ DATAAD.@@,.00,.29,FC,69,62,80, 00a 17640 DATARS. G3. 20,.65,.01,AD.41-82.C0 
1128 DATADD, AS. 26. 25.FC,AR, AS, aa, Ss iV7A DATASE. BS. PAL ASL AC, CBE. SA SS 
119@ DATAFB,AY.G8,.91.FB.99,00,FB.E6 1788 DATACS. 40. 0a.C4. AC. 20.83.20, 91 
128@ DATAFC. CA, DG. F6,.A9,84,AR,S5,FC 1790 DATARS. 26,8F.PC. 24.51.01. 26.30 
1218 DATAAG. 48,A5.FU.91.FB, 9%, 00.FE 1980 DATACI. 2¢. 6A. BE. 28,AA, Bl. AS. 35 
1226 DATAES,FC.CA, IG, FS,.A9, 2A,4C,79 1916 DATASD. 30. 63.A5.64. 80. 30. 82.EF 
1220 DATAAG, 28,.18,C8,4C,.0C,Ce8,.2a,18 182A TATAZE. 42.40, B1.C2. 20. 98.04.40 
1240 DATACS. 20.12,.C8,20,1F,C8,80. 26 1328 DATAFS. C2.EA.ER,EA.ER. ER. EA. EA 
1254 DATADA, 24.19.08,26,1F,.C8,30,21 1246 TATAER. ER. EA. ER. ER, 33. AD, SF. as 
1260 DATADG, 24,19,.C8.20,1F,C8.8D, 56 1856 DATAED. 2C.a2,-ALl. 48,82. ED. 30. az 
1276 DATAGZ,AS, 92.24, D02,FF.AT,11,.08a 1260 TATABO. 42. 4C.CB, CA, 20, 25.03, 4C 
{28a DATASS.OF,.20,11,D8,Al,eaa, Dp. 29 1874 DATA?S. C4. 3E.83,.20.91. 53. 28, GF 
1290 DATAFC,@9.03,.80,08,00,.A0,13. 048 1858 DATARS. 24.51.01,.26.50,01.26.5A 
1366 DATAZ?S.FO,89.84,80,.18,08,4C,CE 1898 TATABS, 26.AAR. BLAS. 65.50. 36.85 
12128 DATACG, 26.04,C05,A5.56,08,18.20 1386 DATAEE. 30.02. 08,@3.EE. 20. 83,4 
1220 DATAGF.BC.AS.FC.A4, FB. 20.91.83 1914 DATAFS. C2. 12. AL. 30.82,6A.AD. 3C 
1234 DATAZ@.50.C1,20.GE,C5,AS,65,F6 1320 DATAS?. 6A. 4A. 4A. 20,49, 82, AD, 3E 
1244 DATAG4,28,51,01.68,A9.88,ARR, a1 1238 DATAGS. 40.47.40. 80. 4A,.83,A09,44 
1758. DATAZ@, 91.83, A9,FF.85, 66,208.40 1948 DATAAC. 49.02, 20,91. 83.26. AF. BC 
1368 DATAC4, 60.A2,06,P5,.68,90,41,.83 135@ DATARS, A8.AG.aS,20.91, BS, 28,50 
137@ DATACA, De. F8,68,A2.06,BD.41,82 1368 DATACL. 20.30. BA. 28,.ARL BL. AS.65 
1288 DATASS,.68.CA,D@.F8,68,A5.66.45 12978 DATASD. 4B. Os. AS. 64. 80.40.82. A9 
1290 DATAGE,.S5,6F,A5.61,60,.AD,44, 82 1950 DATAGA. AC. 4A. Az, 28.91, BS. 20. AF 


it is written and save it on tape 
or disk under the name 
LOADER. Type RUN and press 
return. The loader contains a 
checksum routine to prevent it 
from working if an error has 
been made -— if this has hap- 
pened then check each data 
statement again, save it and try 
again. 

If everything goes to plan 
then the screen will clear and 
the name: ‘TINYGRAPH BY 
P.THACKER’ will appear. You 
now have these three com- 
mands at your disposal. The 
LOADER takes a long time to 
POKE the instructions into the 
area of RAM located above the 
BASIC interpreter, at 49152, but 
there is a way to make it load 
almost instantaneously. 

Here’s what to do: RUN the 
LOADER (or follow the above 
instructions) and verify that it 
works; Type SYS 64738 and 
press return. This restores the 


condition without losing the 
graphics; 


Type 
POKE44,100:POKE 
25600,0:NEW and press return; 
Type in program two and save 


it on tape or disk; RUN it and 


if it's OK then the number 6471 
will appear — if it doesn’t then 
check the DATA statements 
again; Type SYS 828 and press 
return. 

Finally, make these changes to 
program two and RUN it again. 


10 LOC = 2068 
60 DATA 253,145,251 
90 DATA 76,43,197 


and a value of 6961 should 


appear. If not, check it. If all has 
gone to plan so far, type POKE 


44,0:NEW and enter this one . © 


line program 10 SYS 2068. 
Now, to finish off, type POKE 
45,160:POKE 46,14:CLR and 
press return. Now SAVE this 
program on disk or tape, under 
“TINYGRAPH”. 


copied the graphics routines 
into the area used normally for 
your BASIC programs and 
joined onto it a small machine 
code program that will correctly 
reposition it. To use it just load 
TINYGRAPH as you would a 
normal BASIC program and 
type RUN and within a second 
you'll be off and running. 

A brief comment about how 
the program works is important. 
The BASIC interpreter uses a 
subroutine located in zero page 
called the CHRGET routine to 
get the next character in any 
BASIC program. This routine is 
altered so that when one of the 
new commands is found the 
program you've just entered 
carries out the instructions re- 
quired. When you load and run 
TINYGRAPH the bottom of 
BASIC is moved up from loca- 
tion 2048 to 16384 to make 
room for the 8192 bytes needed 


for the screen. If you’re quick 
you'll notice that some 6K is un- 
used (2048 to 8191) below the 
screen. This was done to avoid 
the character generator appear- 


computer to its just turned on What you have done is 


1294 DATABC,.A9.91,A2,44,20,91,B3.20 4 ing on the: sereen. 
2900 DATASC.C1.20,30,BA,20,8F, BC. AD =. Peter Thacker 
2018 DATA4C,@2.AC, 4B. 83. 20,91. 82.20 Birchip VIC 
2a20 DATASC,C1,20,6A.BS8,20,8F.BC.A 
2030 DATAZG, AG. AA,.20,91,.B3.2a,5C,01 
2848 DATAGA, 6A. BE. 20.4F, BC. AS. a7. 27 
2O5@ DATAZE.AS. AS. AS, 88,20,91.B2.28 
2860 DATASC,C1.20.6A,B8,.20,AA. B1-AS 
2A78 DATAGS, SN. 4B. @2.A5.64.8D.4C.82 
2080 DATAAD, 20. 83,29.87,85.FD,38,A9 
2a9@ DATAG7.ES. FD. 85. FD, A9,aa,95,FE een 
210@ DATASS, 26.FE.AS-FD.Fa,@7.A4. FI "4 LOCH828 2 
211@ DATAG6. FE, 8S, 08.FB.AG.98.AD. 4B SB READY: T= ye 
2120 DATAG2. 25. FB. AD. 40,93, 95,FC. BI 34 PORELOC, X LOCSLOC+ | GOTOZO 
2120 DATAFB: @5.FE.91.FB.A9.aa.AC. 4A 44 DATRIGD. @. 132,251,133. 253 
2148 DATAG3. 20,91, B3.20,0F.BC.A9, 08 o8 DATALS2. 133.252, 169,3, 
2158 DATAAG, 28.20,91,B2.20,50,.01,28 ba DATAZS 1. 145,253 6 pode 
2168 DATAZG. BA. 20.9F.BC.AS.88.AC. 49 rv aR ee eer eon = 
2170 DATAG2, 28.91.82. 28.50,01.28,.5A. BM DATASIO, 254. 163, e5e.2 
2188 DATARS. 20. 0F. PC. AG. 84,808,008. 20 a0 ATA 
21498 DATAQ1. BS. 28.50.01. 28,6, BE. 28 14a DATA] 
208 TATARA, F1.A5.65,95.FR.95.64.95 
A DATAFC.AG.@9.AN,49.03.11.FB.%1 
2278 DATAFE.60.AD, ae. 00. 29.FC, 49,82 
2220 TATASH. @8.00.A0, 11,08, 29. 0F. 30 
2240 TATALL. D@,.PQU 18,008.29. Fa. a9, a4 
re TATRASD. 18. 0a. AS. 93, 28.02.FF. 28 {A :&A.a: REM ELACK BORTER SCREEN 
2268 TATATL. PF.60.20.0F.BC.20.51.01 15 REM TIF AL HOUSE 
27 DATAGR AZ. G6. BD. 56, 43,95, 68,08 2” °°50,50,150,50.8 
238 DATADG. FS. 26. 6°. EC. 2h. 51.01.28 3 °° 150,50. 150, ach 7 
14 DATASC. 01.20.68. BS. A. 86. BS. 6a “4a. °158.156,50, 150, 
2300 DATAST. 56.03.CA.08,F2.40. 22.0% S08. :°°50,150.50,5@, 2 
‘S18 DATASS. AL. 3.83. ED. SC. 82. Ag, 44 oa °*50,50,100,25,2 
20 DATAGE. ET. SD. aS, BAA? SR 6S Ci 7 °°1080,25,150,50,¢ 
PBIB DATAAZ, OG. AC. PE. ae. 28.91. BS. Az a8 °° 6@,158,60, 166,2 
23494 TATAGS. BS. 6A. oT. Sa, aS CAT PS 34 °° S8. 168, 90, 1a8,3 
258 TATAGR. AZ. GS. PD. Sa. a2. 95. 8a. 0A ipa :°90,190,90,150,8 
4 TATADA. FS. 20.8F. BO. 2a. 51-01-28 ifS REM FILL IW Door 
7 TATASIO. C1. 20.6R, BS.AZ. 85, BS, 6a i168 FORY= 1eeTO1se 
2S TATASD, 53.83, CA. ea. FS. 40. D405 i120 AG Y. 90.4.2 
2298 TATAAD. 41.92.00. 36.89. Be.a2 2A 138 HEXT 
480 TATAGS. Ci. Ot. St. EC. 83.28 i35 REM DREAM WTI 
: mM TATASL. BE. AS. ee, ', Se. Gt i468 “186,129,168, 20,5 
426 TATACA. IA. Fo. 4c, » 46.01 i374 °°108,8@,.138,98,5 
“$20 TATAAS. 66. 29. 90,55 24,53 i6@ 34,98,130., 1205 
A ‘444 TATAES. 40.47.05. 4h. 42 178 120.120,1080,126,5 
458 TATA] 42.54. 26 42.2% 138 18a, 168: 134, 186,5 
DATA, Ht 2, 19 Fd 196 °°115,129,.115.8@,5 
479 DATARS. ae. 21. 2H, Leh 24 i985 REM DRAW THE SUN 
S28 TATAIIG. AS. 44055 Se JST Ga 26a Fo Ue saZ2iTO27so 
2498 TATRA. AS, 97. 2a. SF a P18 F=SORCABS(90@-(¥-251#CM-251099 
A TATALL. 28. 02.FF.CR oA 215 Fi=s IR CABS ( 9BQ— C249 #6 X-2499 9) 
a TATARS. 10. 20.02, a AS S20 2°. SO-F x, 58-F1,7 
24. TATACS .S5.F0. 89.42 a 17 230 ', SO+F,%, SQ+F1,7 
1 TRITRRL FR 2a. Te, | 2,49 240 NEST 
S40 TA TAAS. SS. 5% 93. 46 28. Ta 250 FEM WAIT FOR KEYPRESS 
S5@ DATAFD. CA. De. Fe. cE F228 GETAS: IFAS=""THENZ6B 
S68 DATAGS,. CA. eo oF, oH Ad. 4E -1@.11,14:REM TEXT BLACK, GRE’, BLUE 
TS7A TATAS. FE. a2. eo, 2.AS er=15 LIST 
Ss@ DATAS?. 20: FA. Be.F AZ 
A DATARS. 45.95.05. 56 


When you first enter the pro- 
gram and run it garbage will ap- 
pear on the screen. Then it will 
start to clear itself slightly. 


‘SCREEN PLOTTER C: 


Then the screen will turn COMMODORE 64 SCREEN PLOTTER 
cyan and one little pixel will ap- 
pear in the upper left of the 10 R=1:B=2#4096 : POKES3272, PEEK (53272) 0R8 : POKES3265., PEEK (53265 0R32 : GOSUB7@ 
20 FORI=1024T02023: POKEI. 3:NEXT : GOTOSO 
ill a 3@ CH=INT(¥/8)  RO=INTC1/@> LN=YAND?  BY=B+RO#320+S#CH+LN | BI=7- (MAND?) 
OS PO ea Oe OVO 8 TER: -THENPOFEBY, PEEK EY) OF(2TBID ‘POKEBY. 0 
. ba Le | ’ aS ) RCo p be St ol «> a 
around by: “INSERT FIGURE 1. Za RETURH 
78 FORI=ETOB+7999POKEL.. ‘NEXT: RETURN 
. 88 M=PEEK (197) 
If you wish to erase anything 90 IFM=14THENP=, “GOSUB32 
that you have drawn, press the 100 IF Hs 1STHENRS! ‘GOSUB30 
j 11@ IFM=33THEN'Y="-1 :GOSUE2 
E key, and your pixel will flash. 120 IFM=3QTHENN="-1°¥=¥-1 GOSUB3® 
If you now retrace any or all of eo ee cic 
1 =38THENY=9'+1°¥=4-1: GOSUB2 
your steps the pixels will be. 150) IFM=34THEN%=X- 1° GOSUB3O 
erased. This can also be used al ile OPN a 
170 IFM=37THEN:=%+1 : GOSUB3C 
for moving your pixel without 190 IFM=47THENY=X41 'Y=¥+1 | GOSUBSA 
drawing. 190 IFM=51THENGOSUE7@ 
200 IFM=64THENGOSUE20 
7 ~ =e drawing again press 10 GOSUIBS30 
e D key. 228 GOTOS . 
j 220 IFMCLTHENPOKEBY, .2=1 
If you wish to start again you 249. IFS 318THENPOKEBY. . ¥=%-2 
can either press the HOME key 250 IFYCITHENPOKEBY, .'Y=1 
or Run stop and Restore and = Sh etims ia 
rerun the program. 
Jarrad Webb 
Henley Beach 


© Brat 


DAYS 10 GO 


DAYSTOGO 
19 REMNG0944:68446-586 SRS SSSSTSESSASSSSSSSSALSE IAT ST TLSSISISSIISSS 
26 RENs * 
36 REN* PRUGKAN : DAYS TO GO + 
A® REN® AUTHOR : PHIL CARTER * 
: _ 50 KEA® DATE =: NOVEMBER 1983 + 
How long to go till our holi —- : 
days?’, ‘Only five weeks to 70 REN® THIS PROGRAM WILL PRINT ALL THE DAYS THAT OCCUR + 
: 1" : GO REN® BETWEEN ANY TWO DATES. * 
Christmas'’. Days to go is a 99 REN® THE NUMBER OF DAYS T0 GU AND THE NUMBER OF WEEKS = 
simple program — enter any two 190 REMt 10 GO TO THE FINAL DAY IS PRINTED ALONGSIDE EACH * 
dates and it will list every day lorcet : 
in between, giving you the days 130 REN89999000000209098298505409900000020000020000009000098 
‘ 146 DIM A1SC12,D18(7,9), 418012, 99 
and weeks to go plus an op psa reenet eo 
tional column of percentages. 160 READ DISC11) 
‘ : , : 178 NEXT 11 
The printout is an invaluable QT. eons ink Fac 
to someone getting married, ex- 190) READ M8011) 
: iti 260 NEXT 11 
pecting a baby or waiting for an sa PAOaT 
important date to arrive. It oc- 228 PRINT “sees DAYS TO GO #900" 
j i 238 PRINT 
cupies pride of place on many 249 INPUT “Instructions? type YES or AU:",Al$ 
of my friends’ toilet doors! 250 IF AISC>"Y" AND AISC>"N" THEN 258 
Written in Hewlett-Packard i il a 
Dag 27 PRINT 
BASIC, there is little that would 280 PRINT “’DAYS TO GO’ is a computer program that will first ask" 
not work on most other 298 PRINT “you to enter any two dates. Then, it will list all the" 


3899 PRINT “days in between the two days, giving the number of days” 


BASICS-the DO/DOEND and 51@ PRINI “to go, the nuaber of weeks to go and, if you wish, a” 


IMAGE statements won't, but it He Bil “coluan of percentages." 
should be obvious what they're 349 INPUT “Enter start date - DD,MM,YYYY:",D1,M1,Y! 
, 356 IF DI<! OR D1>31 THEN 338 
doing. 360 IF WIXI OR M1712 THEN 350 
The three date subroutines at 378 IF Y1<199@ THEN 336 
360 IF (M1=4 OR M1=6 OR N1=9 OK M1211) AND bte31 THEN 338 
lines 1000, 2000 and 3000 are 399 IF Wi=2 AND D129 THEN 338 
not original. I've converted them 4¥8 VOSUb 2000 
from FORTRAN listings I’ve had Ab oo 
for years. They are the sort of 438 INPUT “Enter finish date - DD,MM,YYYY:",D1,41,Y1 
446 IF D1<1 OR D1D31 THEN 428 
routine that most programmers 459 [F M1<1 OR N1D12 THEN 428 
need in their bag of tricks. 469 IF Y1<1909 THEN 420 
470 IF (M124 OR M126 OR M1=9 OR M1=11) AND DI=31 THEN 420 
480 IF M1=2 AND Di>29 THEN 429 
” dbl ae ther! _ 490 GOSUB 2089 [>> 
arrnambdoo 590 Fiza 


ATA 


tO 


LN MAI 
5 aR RRR ER 
aot, Stee t Py 


A : 


AS; 


. 


¥ 


RS 


V 


IF F1>=S1 THEN 5598 

PRINT 

PRINT "Can’t have finish date earlier than start date" 
GOTO 338 

Wi=INT((F1-S1)/7)41 

PRINT 

INPUT “Print percentages?:",A1$ 

IF Al$<>"Y" AND A1$<>"N" THEN 569 

PRINT 


IF Al$="N" THEN DO 
PRINT USING 688;"DATE","DAYS TO GO","WEEKS TO 60" 
PRINT WEING 6605°----*,*-<"-="="-= e ieSaseosese= " 
DOEND 
ELSE DO 
PRINT USING 688;"DATE","DAYS TO GO","WEEKS TO GO", "PERCENT" 
PRINT USING 688;"----","---------- ha a aaa Mae sesso 7 
DOEND 


IMAGE 15X,4A,14X,18A,3X,11A,5X,7A 
FOR 11281 TO FI 
Al=11 
GOSUB 1988 
BOSUB 3899 
~ IF (FI-11)/7<>1NT((F1-11)/7) THEN 778 
Wieut-1 
W221 
GOTO 789 
W228 
1F D2=1 THEN PRINT " " 
TH=((11-S1)/(F1-S1) 9169) 


IF A1$="N" AND U2=@ THEN PRINT USING 846;D1$(D2),M19(411,D1,Y1,F1-11 
IF A1$="N" AND U2=1 THEN PRINT USING 858;D1$(D2J,M16(M1],D1,Y1,F1-11,¥1 
IF AIS="Y" AND W229 THEN PRINT USING 860;D1$C(D2],M1$(N1J,01,¥1,F1-11,71 


IF AI$="Y" AND W2=1 THEN PRINT USING 878;D1$(D2),M1$(M1],D1,Y1,F1-11,W1,T1 


IMAGE 9A,2X,9A,X,DD,",",X,DDDD, 6X, DDDDD 
IMAGE 9A,2X,9A,X,DD,",",X,DDDD, 6X, UDDDD, 8X, DODD 
INAGE 9A,2X,9A,X,DD,",",X,DDDD, 6X, DDDDD, 23x , DUD 
IMAGE 9A,2X,9A,X,DD,",",X,DDDD, 6X, DDDDD, 8X, DDDD, 11X, DDD 
NEXT 11 
STOP 
DATA "SUNDAY", "MONDAY", “TUESDAY”, "WEDNESDAY" 
DATA "THURSDAY", "FRIDAY", "SATURDAY" 
DATA "JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY" 


DATA “AUGUST”, "SEPTEMBER", "OCTOBER", "NOVEMBER", "DECEMBER" 
RENSSSSERSESRESERSERESERESAES ERE RES EROES SEEDS EER ES ESE 
REM# + 
REM* ROUTINE TO CALCULATE DAY, MONTH AND YEAR, GIVEN # 
REM* THE DAY OF THE CENTURY. * 
REM# * 
REM*# VALUES PASSED: Al - DAY OF CENTURY. ¢ 
REM# * 
REM*# VALUES RETURNED: Di - DAY * 
REM* M1 - MONTH # 
REM# Y1 - YEAR * 
REM# * 
REM* LOCAL VARIABLES: X@ * 
REMs * 


RENSHRSRESEEESHERESEREES ESE SES ERE SERAERAAESEHER ERE SES ERTS 
X8=(48(A1-59))-1 

YISINT(X8/1461) 

DI=INT( (XO-(1461471)44)/4) 

MI=INT((S#D1-3)/153) 

DIZINT( (54#D1-3-153481)/5) +1 

IF (M1418) THEN 1246 

N1=M1-9 

YI=Y1+1 

Y1=714+1998 

GOTO 1269 

MI=N1+3 

YI=¥1+19908 

RETURN 

RENGRORSRSAL SHEA SAESERSH ESE SES ERA DASA RES AESS ERE REAR RASA ONED ESSE 
REN* * 
REN® ROUTINE TO CALCULATE THE BAY OF THE CENTURY FROM THE DAY,* 
REM* MONTH AND YEAR. * 
REN* 

REM* VALUES PASSED: Di - DAY 

REM M1 - MONTH 

REN Y1 - YEAR 

REM* 

REM* VALUE RETURNED: Al - DAY OF THE CENTURY 
REKs 

REM* LOCAL VARIABLES: X®, Xt, X2, X3 

REKs 

RENGSOS ee eeeeeseeeSESESESEESERESASS SSAA SERERSHEAESE SS EEKEOES ES 
IF M1>2 THEN 2198 

X3=M1+9 

xo=Y1-1 

X9=X9-1909 

60TO 2218 

X3=M1-3 

X6271-1998 

XPSINT((14619X9)/4) 

X2e INT ((1534X3+2)/5) 

AL=X14X24+014+59 

RETURN 
RENSERHSEHSESARASASHR SAAS ASARESASAESAES SHAR RSAEHE REE ETERS EEEES OE 
REN* 

REM* ROUTINE TO CALCULATE THE DAY OF THE WEEK FROM THE Dat, 


*eeeret * & 


REMN* MONTH AND YEAR. 

REM# 

REM* VALUES PASSED: 01 - DAY 
REN# M1 - MONTH 
REM# Y1 - YEAR 
REM# 


REM* VALUE RETURNED: D2 - DAY OF WEEK, WHEKE 1=SUNDAY, EIC. 
REMs 

REN# LOCAL VARIABLES: X8, X1, X2, X3 

REM* + 
REMSSESESSSSHS ERE E TERETE TAKS RSE AETE RASHES ATER HATER KE EK 


+s *e F He He SF HH HH He 


3148 X1=71-1998 
3158 IF M1>2 THEN 3198 
3168 X2=mMi+18 
3178 X1=X1-1 
3186 GOTO 3269 
3198 X2=M1-2 
3268 X3=INT((2.6#X2)-.19999) 
3218 XO=INT(X1/4) 
3228 D2=X3+D1+X1+XG-34 
3238 IF D2>=1 THEN 32698 
3248 D2=D2+7 
3258 GOTO 32390 
3268 {Ff D2>6 THEN 3299 
3278 D2=D2+1 
3288 RETURN 
3299 D2=B2-7 
3398 GOTO 3268 


RUN 
DAYSTOGO 


#444 DAYS 10 GO +++ 


Instructions? type YES or NO:NO 


Enter start date - DD,MM,YYYY:24,12,1983 


Enter finish date - DD,MM,YYYY:11,1,1984 


Frint percentages?:YES 


SATURDAY 


SUNDAY 
MONDAY 
TUESDAY 
WEDNESDAY 
THURSDAY 
FRIDAY 
SATURDAY 


SUNDAY 
MONDAY 
TUESDAY 
WEDNESDAY 
THURSDAY 
FRIDAY 
SATURDAY 


SUNDAY 
MONDAY 
TUESDAY 
WEDNESDAY 


DATE 


DECEMBER 


DECEMBER 
DECEMBER 
DECEMBER 
DECEMBER 
DECEMBER 
DECEMBER 
DECEMBER 


JANUARY 
JANUARY 
JANUARY 
JANUARY 
JANUARY 
JANUARY 
JANUARY 


JANUARY 
JANUARY 
JANUARY 
JANUARY 


1983 


1983 
1983 
1983 
1983 
1983 
1983 
1983 


1984 
1984 
1984 
1984 
1984 
1984 
1984 


1984 
1984 
1984 
1984 


NAYS TO GO 


WEEKS [TO bu 


FERCENT 


| GOSUBSE 


PRINT POKE36879, a 


A=1: B=-1 

Belfer: 138138 

GETAS: IFAF=""THEHi4 
TFAS="" THEMA=~-2e 
IFA$="@" THENB=-22 
IFAS="A" THEMA=~ 1 
IFA#=" >" THEMB=~1 
IFAF=S"S"THEMA= 1 
IFAS="" "THEMB= 1 
IFAS="2"THEMARSS 
IFAS="°" THEMB=22 
ee 
IFPEER © s+Ao=L6QThHeHes 
TEPER « '+BI=L6QTHEMS 1 


BLOCKADE 


Blockade is a two player game 
that demands sharp reflexes 
and skill. 

It is a game like the light 
cycle scene in ‘TRON’. The ob- 
ject of the game is to make your 
opponent crash into either the 
wall, his own trail or your trail. 


Shaun Clarke 


IFPEEKS T4+8 I=LBLSTHEMS I 
Henley Beach SA 


IPRPEER (M42 =SS THEMES 
LFPEEKS' eB =B67HENS 1 
i sete {TOLGG  HEATL 

b Beat rer re i ee eee ee ee 
=. Cree Lee 

oo POK KEY, Vo 

od PORE RESTS, LS POKESSS7S. 138° FORT=LTOLSO HEMT PORESSSTS:, 8 


21D 0a —) ay a Be 3 fe 


Bor fa Pa ee ee pe ee ee pe Pe eee Ps 1G oo -) oy oA he OP Re | 


eo BOTS 

26 POKESSS7S, 15: POKES6876 240: FORL= 1roreo NEXT: POKESSO76. 
27 PRINT TCREBBDRPRE® 8608" FORT=1TO2900 NENT 

28 RGaRS+ | 


29 TFRSD=16THEMES 

sk GOTO 

Si PORES&6S?S, 15: FPOKRES6S7E, 246° F0RLe1TOPAe MEAT PORE SEE 
ces ae ee ao Peet eee NE a 
a Lele 


ah PLSD ii OTHE HES 


+t 
we ee 


tr Bs iS 


S= COTOERG 

TE oT Bs Been Y Oe ee ee ee i ee 

SP FORTH=LTOS1L PRINT % MEM T 
SE PRIWT" fod 4 i Se MS 


39 PRES LE PORESIS4, 26 

Ai RETURH 

44 cs INT Dy 0090001111 JERS MMM tw 

42 PRINT ERBINSTRUCTIONS ook” 

42 mae sf [FS¢=" "THEN 

dh TF S$=" 9" THEM? 

45 TE S¢="N" THEMRETURH 

46 GOTO43 | 

47 PRINT'QTHIS IS A THO PLAYER GAME USIHG SHAR 
45 PRIHT"@ @ IS IN THE TOF LEFT HAND CORHER A 
$3 PRINT" THE OBJECT OF THE GAMEIS Ta TRY TO MA 
SG PRIMT"WALL OR INTO A TRAIL” 

Si PRIHT(RRBBBBRY KEY" 

So REM THIS IS FOR THO PLAYERS 
52 GETRS: 1FRE=""THEHS2 

S4 PRINT "(THE MOWENENT KEYS ARE" 
55 PRINT 'EM-UP A-LEFT S-RIGHT 
ee PRINT MIUP °~LEFT i-RIGHT 
PRIHT (SRR RRRRR HY KEY" 

GETRE: [FR#=""THEHSS 

RETURH 

PRINT "CORR RRBRE: SCORE I5 "RS 

PRINT "(XREREBRBBIS @ SCORE IS "LS: FORT=iTO2@@0 HEAT: PRINT DR : GoToL 

PRINT "PDRDQT HIS COMPETITION WAS FOR THE FIRST PLAYER TO GET To 1@ PTS AND " 
PRIHT"@ ® GOT THERE FIRST SO HE ##WOHae” 

GOTO6S 

FRIHMT"RIRRIITHIS COMPETITION WAS FOR THE FIRST FLAYER TO GET TO 1@ PTS AND" 
FRINT"@ GOT THERE FIRST 30 HE #4 LION HE” 

67 GOTOES 

68 PRINT"BRBBIRHOTHER GAME <Y'vtHo" 

69 GETFS: IFF$=""THEN6S 

78 IFFS="'?" THEHRUN 

71 END 


P RE- FLEAES AND SETLLS.” 
1 #05 IM THE BOTTOM RIGHT.” 
KE SOWROPFOMITE CRASH THTO AR” 


2-DCWH FOR THE TOP (@ # PLAYER, " 
“-DOWH FOR THE BOTTOM 8) PLAYER," 


AMnAA a nm una 
MAR OPK DY OM —! 


MONOPOLY 


MANAGER 


AH 


teh ee ek pe ee peek pet ee pee 
HOV Gh Oe s 


(OM AT BD why Mapa pa pyre 


3 GETS$: IFS$<2 


PRINT" CRODGS MOMOPOL'Y MANAGER i" 
FORT=170500: HEAT 

PRINT "Sy BH. MADDEN ” 
PRIMT "DE FEBRUARY 1933 im 
FORT=1701600:MEXT: PRINT "Oe 
GETA¢: IFAS" AWDAS 2M! THEMES 
IFAS="H" THEMES 


BO FPRINT"QGNTHIS PROGRAM ROLLS THEDIE (BY HITTING SPA 


E"; 
PRINT"FOR UP TO SIX PLAYERS. 


PRINT"@AFTER EACH ROLL OF THETDIE SELEC) FROM THE 


PRINT’ TRANSACTION ‘YOU WAHT. " 

PRIMI @THEH ENTER THE PLAYER NUMBER <5 
PRINT "QO mew HIT AY KEY. 
GETAS: IFAS=""THENTE 
PRIHT"CIHOW MAM'Y PLAYERS 
TFMC2ORMCETHENGUT OSG 
PRINT OBEMTER PLAYERS NAMES. 
FORN=1 79" 

IHPUTPS$¢H 3 


MAA 


IHSTRUCT IONS 


Here is a program that is not 
actually a game, rather it assis- 
ts in playing the traditional 
board game of Monopoly. The 
screen displays the names and 
bank balances of up to six 
players and rolls the dice on 
screen when you hit the space 
bar. 


CAH" 


2 AMD THE 


web": THPUTM 


LETTERS). " 


CE BAR? AND KEEPS 


After entering the program 
enter the name of each player. 
Then, roll the dice. Finally 
select which transaction you re- 


- quire and enter the requested 


information. The computer does 
the rest. If a player ends up with 
no money then he is declared 
bankrupt and no more data will 
be accepted for him. 

If you wish to give each 
player more money to begin 
with alter the value of BB(N) in 
line 95. 

B.W. Madden 
Surry Hills NSW 


A BANK BAL 


OPTIOHS WHICH" 
AMOQUHT. " 


IFLEM OPS (Ho oCSTHEMPRIMT MQTHAT MAME IS TOO LOWG. ABBREYIATE IT."  GOTOS2 


NEATH 


FORM=1 TOM: BRON! S600: MEATH: BS="GRAMKRUPTS" 


REM SCREEN PRINT ROUTINE 
PRINT "CReAAMOWMOPCLY MANAGER Sees" 


FORA=3164708135 :POKEX. 102: POKEX+30720. 6: HEXTH 


PRIHT"CRRHIT SPACE TO ROLL DICESRS" 


FORN=1 TOM: PRINTTABS 1); "UH" MY PECs PRINTTABS L1oj°ae': BECH? "3" 


PORE S34 32+H#4d4, 1 
IFRBECH®="BTHEHGOTOLeS 


TEBE (N) <OTHENPRINTTAB( 11) "CIBRNKRUPTS" 


HEATH 

RFEMPRIMTTRAMSACTION OFTIOWS 
PRIMM) \ SigbsDefstelereteteToleletate Toye 
PRINT"CINA® PLAYER PASSES Gl" 
PRINT" GBM BAMK PAYS PLAYER" 
PRIHMT CM PLAYER PAYS BAWK" 
PRIHT 0M PLAYER FATS PLAYER" 
PRINT"RES@ HO TRANSACTION" 
GETAS: IFASWS" "“THEMIS1 

IFA¢="" "THENGOSUB1 G66 


IFS#="A" THENGOSUE 1954: GOTO3H6 
IFS$="B" THEHGOSUB1 954: GOTO4ag 
IFS$="C" THEHGOSUBI 956: GOTOSa8 
IFS$="D" THENGOSUB1I950 :GOTO66H 
GOTO116 
PRINT" 
IFBBCO?COTHENGOSUE1S9a@ - GOTOSae 
BECUJ=BEC Ho +206: GOTOL1IG 
PR IMT "pSiteleielatela a iaie ie 
IFBE COC 6THENGOSUB1 Sa: GOTO468 
PRINT"EMTER AMOUMT "" THMPUTA 
BECRI=BBCQ9+A:GOTO116 
PRINT "SRURDRDSIRD AIRS ere else 
IFBBCQ9¢9THENGOSUB 1506: GOTO5e0a 
PRIAT"EMTER AMOUNT "S THRUTA 
BBCQ)=BBCQ9-A:GOTO116. 
RINT "MaerRer areas pI oleae lel 


p 
IF BBC Q)<OTHENGOSIB1 500 : GOTO66 


OC 


PRINT "INE ROM PLAYER NUMBER 


BURP ROM PLAYER NUMBER® - INPUTG: 


PMRSELECT TRAMSACT TOMS" 


AU ANDSECS" BY AWTISS Co "CANS So DU AMDSE > UE" THEMIS 


SOUSA ORD AISIA TCE HIER PLAYER NUMBER" : INPUT: FG LORGCETHEMGOT OSB 


SET PLAYER NUMBER": IMPUTO: IFOCLORGCETHENGOTO406 
IFO LORGZETHENGOTOS0¢ 


PLAYER HUMBER : INPUTO: IFO 1 ORGOMTHENGOTOER@ 
ona er oe een ener eles 


89 


V 
MONOPOLY MANAGER 


643 IFP=QTHENGOTOEB2 


604 IFBBCP)<6THENGOSUEIS140: GUT DEB 


61@ PRIMT"EMTER AMOUNT 


‘ IMPUTA 


620 BRCQO=BECO +h: BECP I=BECP O-A: GOTOLIG 


14@0 REM DIE ROLL/PRINT ROUTINE 
1810 Do¢s=" —— Gil al hal 1 CT SAARI (GM) (eat eat ‘--——— 
1W19 


1H26 
14:36 
1646 
1959 
1664 
1678 
Lash 


Das="( CORR] Sane 
D1 $= "(XS Fae" 


[a$="' 
[i4g=" 
T53=" 
ios: EOTaee ened 
FRINT"QRRRBDB) DOS > PR LHT SRR" Dias 
A=INTCRHDC 1 #6+1 2 
IFA=1THEHPR IT " See 
IFA=2THEMPR IMT "ST Ds 
IFA=ZTHEMPRINT "GSB D3 
[FR=4THEHMPR INT "See D4 ¢ 
IFA=5THEHPR INT " See Dos 
IFA=67HEHPR INT " ey Des 


BEIMTCRHD: 1 #641 d 
IFB=1THEHPR IMT "pieelelele teal ey" D1 ¢ 
LF BF2THEMPRINT "Sate eer eaten Ry" [ht 
IFB=3THEMPR IMT "Geeta epee ey" D+ 
IFB=4THEMPR IMT "betaletelateral ete ey" D4 ¢ 
IFB=STHEMPR IMT "Siaieieete epee By" Ts 
IFB=6THEMPR IMT "oSiSseie eee es 


(WOOO OOOO 


FR IHT "Gey" DOS PR LT SRP Tt 


PRRRRRRRR 


"ORE TUR 


FOO ee RG aaMRER TE 
RTT 


MITT DOUBLE! | RURRGERSEOTR CLL AGAIH!: “GoToIssS 


GOD MM Mw 


LA Ve Hub whee aw 


Wr OA De Ga Po Po fe Bs Pt By ee 


— es Re Op op Op ps oo 


mm i 


FOR‘ = 


PR INT "PLAYER" ; ae 
PRIMT'PLAYER "GPG "IS BANKRUPT" : RETLRH 
SHS4TOS1S5 > PORES. Se 


BANE RUPT" > RE TUR 
OWE TH RE TUR 


ORIENTEER 


Lost in the mystic northern 
forest! 


Escape lies to the south but 


each step weakens you and the 
way is guarded by wolves, 
fierce lions, grizzly bears and 


The program although short 
used almost all BASIC memory 
on the 3.5K VIC-20 through use 
of the DIM statement that sets 
an integer array to contain the 
terrain information. 


Please note — the underlined 
“Q” in line 4 is a cursor down 
which appears as a reverse “Q” 
on the screen. | 

Peter Bagust 
Sans Souci NSW 


evil ogres. 

Beware of disappearing trees 
and above all else the ancient 
stone rings that transport the 
unwary to someplace in the 

~ north. 

To travel north, south, east or 
west you simply press the cor- 
responding N, S, E or W key. 

Mapping the terrain is best 
achieved on 12 by 100 square 
grid paper. You start at the 
most north-west corner. 

The terrain “wraps around” 
west and east, as does your 
monitor screen, therefore travel- 
ling east 12 moves puts you 
one move south. 


i L&é="TREECAUEROCKHILLWOODRINGOGREBEARL ! 
~ ONWOLFE ": DIMR%( 1208): INPUT’ NAME’ :>N¢:2S=999 

2 A=PEEKC197 J): ON-CA=64 JGOTO2: S=S-1:R4“~CR) 

eLeFORT=6TOSSH> NEXT? IFRSLISSTHENG 

3 R=R+(A=9)-CA=49 J+12xCCA=28 J-CCA=41 30: 

R=ERX=-(R><105L= ee TFL =@THENL =INTCRNDC1 

Jxi@) 

4 PRINT QLANDMARK "“MID$(L$,CLx*X4+1),4):R= 

R-INTCRNDC1 J*RxX-CL=5)): IFL<6THENZ 

5 ON-CRNDC1)<CL718)IGOTO2: PRINTN$S” WAS A 

TTACKED“?S=S-1541.: PRINT’ STRENGTHS: [FS ou 

THENZ2 

6 PRINT" THY JOURNEY ENDETH”: IFSS@THENPRI 

NIN$” SURUIVED! WILL THE NEXT" RUN 


HI-RES SCREEN 
MACHINE CODE LOADER 


This program sets up a 160 by 
160 hi-res screen and incorpo- 
rates a routine for plotting 
points on the screen. It is avail- 
able for use with either BASIC 
or machine language routines. 
A 3K expander or Super Expan- 
der must be in place for use 
ones own basic programs. 

To use the routines type in 
the program, run it, and then 
type NEW. The machine code 
is now in place beginning at 
7296 (take care when typing in 
the data statements as an error 


here may cause the program to 
crash later on). Basic programs 
can now be typed in as usual. 
Alternatively the above program 
could be incorporated inside a 
BASIC program. 

To set up the hi-res screen 
use SYS 7296. 

To plot points poke an X 
value into 7679 and a Y value 
into 7678 then use SYS 7394. 

The value in 7677 determines 
whether the point is plotted or 
unplotted. A zero here causes 


the point to be unplotted. A non- 
zero causes the point to be plot- 
ted. To clear whole screen use 
SYS 7361. 

Note. If the points are to be 
plotted in a colour other than 
white then the screen must be 
filled with this colour after hi-res 
has been set up. 

An example of how the 
routines might be used is given 
in the following program which 
plots the polar co-ordinates 
graph...R = SIN5J 


10 FORJ7296107465 : READA: POKEJ, A: NEXT: POKE56, 16: POKE55,OsPOKE52, 16: POKES1,0 
20 DATA169,14,141,0,144, 169,43, 141, 1,144, 169, 148, 141,2, 144, 169,21, 141, 3, 144 
30 DATA169, 252, 141,5,144, 169, 147, 32,210,255, 169, 30, 133,2, 169,0, 133, 1, 160,0 
40 DATA162,0, 138, 145, 1,232, 152,24, 105,20, 168, 201, 200, 208, 243, 160,0, 230, 1, 165 
50 DaTA1, 201,20, 208, 233, 169, 16, 133, 2, 169, 0, 133, 1, 160, 0, 169,0, 145, 1,230 

60 DATA1, 208, 2,230, 2, 165, 2, 201, 28, 208, 240, 165, 1,201, 128, 208, 234, 96, 173,255 
70 DATA29, 41,248, 133, 1,169, 16, 133,2, 169,0, 160, 20,24, 101,1,144,2,230,2 

80 DATA136, 208,246, 133, 1,172,254, 29,173,255, 29,41,7, 170, 169, 128, 224,0, 240, 4 
90 DATAT4, 202, 208, 252, 174, 253, 29, 208, 14, 141,252, 29, 169, 255, 56, 237, 252, 29,49, 
100 DATA145,1,96,17,1,145,1,96,0,0 


The next program demon- 
strates how a machine code 
program might use the routines. 
To run it load and run the hi-res 
screen program. Then load and 
run this program. Type SYS 
7621 and a small cross will be 


“bounced” around the screen in 
smooth hi-res motion. 

This program can be run on 
an unexpanded VIC but any 
BASIC programs in memory will 
be lost. (POKE56,16 and 
POKE52,16) statements — will 


have to be changed to 
(POKE56,28 and POKE52,28) 
in the screen program. 


Wayne Rochester 
Kalgoorlie WA 


10 FORJ=7464107626 : READA: POKEJ,A:N&XT : POKE36879, 136 : PRINTC HR3(5) 

20 DATA162,0,173,241,29,24,125,187,29,141, 255,29, 232,173,240, 29,125, 187,29, 141 
30 DATA254, 29, 136,72, 32,226, 28, 104, 170, 232, 224, 10, 208, 224,96, 162,0, 160,0, 169 
40 DATAO, 141,242, 29,141, 243,29, 142, 241,29, 140, 240, 29, 138,72, 152,72, 109, 1,141 
50 DATA253, 29, 32, 40, 29, 160, 0, 162,0, 232, 20€, 253, 200, 192, 8, 208, 246, 169,0, 141 

60 DATA253,29, 32,40, 29, 104, 168, 104, 170, 173, 242, 29, 208, 11, 232,224, 154, 208, 14, 238 
70 DATA242, 29,76, 153, 29, 202, 224,0, 208, 3, 206, 242, 29, 173, 243, 29, 208, 11, 200, 192 
80 DATA149, 208,3,23&, 243, 29,76,87,29, 136, 192, 0, 208, 3, 206, 243, 29, 76,87, 29 

90 DATAO, 206,243, 29, 76,87, 29,0, 2,250, 2, 2,2, 4,4, 2, 32, 128, 28, 76,75, 20 


GALAXIAN 2 


In this program the player has 
to shoot the alien before it in- 
vades. The player only gets one 
man but there are 100 possible 
levels (it is best to start at 
around level 5). As your score 
increases so does your level 
and it gets increasingly harder. 
The alien will show itself for 
a random time (this decreases 
as the level goes up). The ran- 
dom statement in line 580 
works out the cursor position for 
each stage down the screen. 
The random statement in line 


through the keyboard. 

After an alien is shot, a new 
alien replaces it at the top of the 
screen. 

The sound effects and PCG 
data were POKEd into memory. 

The keys to use are ‘,’ for 
Left, ‘.’ for Right and ‘Z’ to Fire. 
Also to make the game easier 
and to stop the keyboard from 
getting too badly bashed | 
added the keys ‘A’ and ” 
move to the far left and right of 
the screen respectively. The 
game goes on until the alien in- 


620 keeps on generating num- __vades. 
bers until it gets one lower than 
the present level. Between 
numbers being generated the 


player can enter commands 


Peter Lutton 
Huon VIC 


Q@O@100 REM * * * A AX IAN 2 ee * 

00116 REM * * * By Fs if Lutton (C) 30/9/1982 * * # 

@@1206 G=a 

®@12@ CLS 

©0146 INVERSE: NORMAL 

©0156 CURS 25,1:FRINT"Welcome to ...." 

@@16@ CURS 15,2:UNDERLINE:FRINT" * ** GALAX IAN 2 * # e " 
60170 NORMAL 

©0180 FRINT 


060190 FRINT,"Galaxian 2 is real time space action game involving" 
0©6200 FRINT, "quick reflexes and marksman like shooting skill. The" 
©6210 FRINT, "object of the ane is to shoot the leering aliens" 
OO226 FRINT, "before they ee your level. You have only one man" 
GO230 PRINT, "so_ nears I control keys are *,* to go Ph ai 
@6240 FRINT,"*. ge pe ahe, 75 to fire your las orm: . 

@O250 FRINT, "to cna ar left of the screen and : to go es fhe" 
©0260 FRINT, "far right of the screen.' 

@6@270 FRINT:FRINT, “@hich skill level, 1 to 16 (1 is the easiest) "i 
©8280 INFUT H 

tie CURS 16,14:UNDERLINE:FRINT" * * * GOOD LCUCK * * * "sNORMAL:FLAY © 
~16 


G@63060 CLS:CURS SS2:FRINT"Flease wait ...." 
@@210 F=62488+65*16 

@6320 FOR A=F TO F+16*1¢0-1 

®6320 READ B:FOKE A,B 


QgO350 DATA 6,0,8,21,22,67,121, 
8H360 DATA 24,24, 24,255,0,195, 
ww570 DATA 0,0,0,248,4,194,195 
wHestGeo DATA ©,0,0,0,1,2,4,8, 16, 
wua90 DATA oO,a,@ * 0. 255.0.06.31 

waded DATA 24,24, 60,126, 255, 2! ia 24, S39! 219° 6,255, 0, O, 200 

OHW410 DATA ©,0,8, oh 2=55,.0,0, 240,& 196.8, 240,40, 0,255 

O0420 DATA @.4.0.0.128164, 52, 1é cic is dels 255 

wo450 DATA 24, 24,34, 24) 24,341 24. 38, 0,9, 0,0,0, 0, 0,0 

OWd4W DATA 8,60,0,0,0,0,0,0,0,0, 3) "8.0.0: (3) 

YO450 DATA MAS 2391105198. 76.69.42 64, 211.2, 16,254, 69,62,0 

WO46O DATA 211.2, 16,254.13, 32,259, 225, 241,261 

wog7o FOR FH150008 TO 15624 

wWH4age READ [:FOFRFE F,I:NEXT F 

00490 CURS 16.,14:PRINT"##*# Fush any key to continue **#" 

ST Soke] a5) as =kKEY:1F A4$=""" THEN See 

wHh1e CLS 

Pal hey Bea) PEG 

weg te C=32:CURS C,1S:FRINT"DEFGH" 

wosde GOSUE Lean 

IEE Sed 

Won Gest 

wwWo70 REM IF S=15 THE N NORMAL:GOTO 12800 

wHwOshe B= LNT CRND*#56): IF B.S THEN S8e 

Ouse CURGS B,Stk FINI “ABCARC" 

woewo IF GS=15 THEN NORMAL:GOTO 936 

Weel W1lS=EEY 

WO. B= TNT CORND* 1 ee) 

Wel Tr bon THEN CURS BZS:FRINI"JJJJJJ": GOTO S68 

be 4es IF G=200 OK G=600 OR G=16080 OR G=1660 OR G=2220 OR G=298@ OR G=Z826 OR G=4 
760 UR G=5780 OR Gb=6700 THEN LET H=H+ 1: G= a cag tet GOSUB 1000 

wet JF C=o THEN CURS C.iS:FRINT'JJJJJ":C=S:CURS C,15:FRINT"DEFGH": NORMAL: CURS 

L.~lSs PRINT GsFCG 

NI EH) C=S9 THEN CURS C,1S:FRINT' JJJJJ":C=56:CURS C,1iS:FRINT"DEFGH" 


{3 
yen 8 i28, 138; 285 


It 
woos Le mld="." THEN CURS C,1S:FRINT"'JJJJJ":C=C-3 
WOotbu LF Alt=".2" THEN CURS C,1IS:FRINT"JJJJd"sC=C+3 
woes LF Alg="Z" GOR Alt="2" THEN GOTO 748 
wo7ow Tr AlS="A" OR ALS="a" THEN CURS C,1S:FRINT'"JJJJJ":C=5:CURS C,15:FRINT"DEFG 


woo7 ber Tk ae " THEN CURS C,1S:FRINT"JJJJd":C=S56:CURS C,15:FRINT'DEFGH" 
woseo CURBS. C. :FRINT"DEFGH" 

wos ce GUTO rat “) 

weef4e D=1S . 
wwsiow FOR M=1 10 S:s0U1 
wWerevow D=pD--1 

woe LF Dew THEN Bee 
ew7ho CURS C+2,0:FRINT'I" 

IMIS OD BUI Jou 

Vwbhw D=ALS 

wooly D=b-- 1 

wens Lr ALS="5" THEN CURS C,1iSsFRINT"JJJJI":C=S6:CURS C,15:FRINT"DEFGH" 

wWwote LF DbD=o THEN BéH 

woBde CURS C+2,D:FRINT"J" 

WHS GOTO lw 

ee a U+2=R OR C+2=B+1 OR C+2=k+2 OR C+2=B+2 OR C+2=8+4 OR C+2=B+5 THEN 870 E 
wh: 66 Lb) 

WU8/H b=btLlY 

Owsso CURS BLS:FRINT"JJJJJJ" 

eerts ye) CURLS 1.14: NORMAL: FRINT"SCORE' 

euSen (URS 1, 15:FRINI fo: Pu 

weed bUR Fades y 10 41 502b=USR i Semel) Ee NEKE FE 

wey) GOTO SS 

woogie FOR F=4e095 TU 2847 STEF =USR(15000,F):NEXKT F 

wov4dw CURG SAlsrRINE * * té A ME OVER * * *" 

ways C os ‘eer FRINT'SCORE +: "iG 

WOIGW (CUR Se JisFRINT'WOULD YOU LIFE ANOTHER GAME (Y OR N) 3" 

wwe 70 OSSckEYLIF ASS$=""" THEN 970 

WWSBO JTF ASt="Y" THEN INVERSE:NORMAL: CLEAR: RESTORE: GOTO 270 


worse CLSO:END 
4:FRINT"LEVEL" 


2.2£48:0UT 2.184:NEXT M 


wilweo NORMAL: CL 
wWloele CURS 1.5 
Wilwle CURS 1.1 
O1ese CURS oe) 
wlw4u RETURN 
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SOLITAIRE 


0O1O0CLS:CURS20,8:FRINT"DO YOUWANT INSTRUCTIONS ": INPUTASS 


OOLLOTFAS#="Y"ORAZ$="y" THENGOSUBI10 
O0120POKE220,121 

O0130DIMP (16) :DIMM(16) = DIMO(16) : DIMQ(16) 
00140CLS: RESTORE 

OOLSOCURS20,4:PRINT"1" 
OOL16O0CURS19,S:PRINT"/ \" 
00170CURS18,6:PRINT"2 


OO1B0OCURS17,7:PRINT"/ \ / \" 
O0O190CURS16,8:FRINT"4 - S —- 6" 
OOZOOCURSIS,ISPRINT"/ \ / \N / \" 


00210CURS14,10:FRINT"7 -.8 - 9 
OOZZOCURS13,11:PRINT"/ \ /\ SN 7 \" 
OOPSOCURS12,12:PRINT"11— 12- 13- 14- 15" 
00240FORN=1T015 

OO2ZSOREADA,E 

OO2Z60P (N) =A: 0(N) =B 

O0270NEXTN 
OOZBODATAZO, 4, 18,6, 22,6,16,8,20,8 
OOZIODATAZ4,8,14,10,18,10, 22,10, 26,10 
OOZOODATA 12,12,16,12, 20,12, 24,12,28,12 
OOSLOFORN=1TO15 

003200 (N)=1 

OOSZONEXTN 


OOZ40CURSO: INFUT"WHICH ONE DO YOU WISH TO REMOVE" ,F 


OOSSOIFF = 15ORF< 1 THEN340 

00360 (F) =O: CURSP(F) ,O(F):PRINT"#* " 

OOSTODATAL , 2545 15356525457 925595 35985 346,10 
OOZBODATAS , 2, 1445741154585 13 4945556554 97914,5,8,12 
OOZIODATAG, 95 1346555446510, 15 565 3514754525 75859 
OO4OODATAB, 5S, 3,8,9,10,11 47545114125 1349555 29% 8y7 
OO410DATA10,6,3,10,9,8,12,8,5,12,13,14,13,12,11 


OO4ZODATAIS, 14,15, 13,9,6,13,8,4,14,9,5,14,13,12,15,14,13 


OO430DATAI5,10,6,0,0,0 
00440FORN=1T015 
00450M (N) =N 

OO460NEXTN 

OO470CURSO: PRINT" 
OO04B0PLAY8: CURSO: PRINT" 
O0490I1FQ(A) =OTHEN640 
OOSOOPLAYS: CURS1 , 2: PRINT" 
OOS1OIFQ(B) =OTHEN640 
OOS2ZORESTORE370: CURS1,3: PRINT" " 
O0OSZOW=0 

O0540FORN=1 TO037 

00550 IFW=2THENS9O 

00560 IFW=2THEN&460 

OOS7OREADX,Y,Z 

00580 IFA=X THEN600 

OOS9ONEX TN: IFW=2THEN6460EL SEGOTO640 

00600 IFB=YTHEN620 

00610NEX TN: GOTO640 

00620I1FQ(Z) =OTHENLETW=2 

OOS30NEXTN 

00640CURS1 ,3 

OO650PRINT"BAD MOVE - TRY AGAIN": GOTO480 

00660Q (X)=0: CURSP (X) ,O(X) sPRINT"#* " 

006700 (Y)=0:CURSP(Y) ,O(Y):PRINT"#* " 

006800 (Z)=1:CURSP(Z)-1,0(Z):PRINTM(Z) :W=0 
OO690FORN=1T015 

OO7OOIFG@(N) =1 THEN720 

007 10NEX TN: GOTO780 

007 20RESTORE370 

00730FORV=1T037 

O0740READX,Y,Z 

00750 IFN=XANDQ (Y) =1ANDQ(Z) =OTHENLETW=1 

OO760NEXTV 

007 70NEXTN 

00780 IFW=1 THEN480 

00790S=0 

OOBOOFORN=1T015 
00810IFQ(N) =1 THENLETS=S+1 
OOB2ONE XTN 

00830 IFS=1 THENLETA1 $="GRADE 
00840 IFS=2THENLETAI1 $="GRADE 
00850 I1FS=3THENLETA1$="GRADE 
OOB60IFS=4THENLETAI1 $="GRADE 
00870I1FS?>4THENLETA1$="GRADE 
OOBB80CLS 
OOB9IOCURS20,8:PRINTAI 
OO9OOFORN=1T01000: NEXTN: GOTO140 

00910 CLS 

00920 UNDERLINE: CURS20: PRINT" INSTRUCTIONS" : NORMAL 
00930 PRINT" 


GENIOUS" 

VERY INTELIGENT" 
AVERAGE" 

- BELOW AVERAGE" 


moonwp 
| 


“3s CURSO: INPFUT"MOVE FROM "3A 


"sCURS1,2: INPUT" JUMP OVER "3B 


AND BELLOW —- TERRIBLE" 


Solitaire is a program to simu- 
late the |Q game of the same 
name. You have a board in the 
shape of a triangle with 15 
pegs. You are asked which peg 
you would like to move. To 
move a peg you must nominate 
the number of the peg you wish 
to move and the number of the 
peg you wish it to jump over. 
The hole it will land in should be 
marked by an asterix (showing 
it is empty). The aim of the 
game is to remove as many of 
the pegs as possible by jumping 
them with other pegs. 

There is a delay of approxi- 
mately 5-10 séconds while the 
computer checks if there are | 
any other moves. 

This program should be sim- 
ple to convert to other basics 
knowing that: 

CURS X,Y = PRINT AT or 
PRINT@ ; 

CURSO = moves the cursor to 
the top left hand corner without 
CLSing; 

POKE 220,121 = removes cur- 
Sor; 

PLAY 8 = plays a note; 
RESTORE X = restores data 
read pointer to line X; 
UNDERLINE = underlines the 
text; 

NORMAL = returns output to 
normal after UNDERLINE. 


Keith Westley 
Girraween NSW 


THIS IS A GAME OF SOLITARE USING A TRIANGULAR GRID OF 15 " 


00940 PRINT"POSITIONS. EACH POSITION HAS ITS OWN IDENTIFYING NUMBER. TO" 
00950 PRINT"MOVE YOU MUST INPUT THE NUMBER OF THE PIECE YOU WISH TO MOVE " 
00960 PRINT"AND THE NUMBER OF THEN PIECE YOU WISH TO JUMP OVER .FOR YOUR" 
00970 PRINT"MOVE TO BE LEGAL THE HOLEON THE OTHER SIDE.OF THE FIN YOU WISH" 


00980 PRINT"TO JUMP OVER MUST BE MARKED BY AN ASTERIX. 


AT THE BEGINNING OF THE 


GAME YOU MAY REMOVE ONE PIECE AS A STARTER. THE AIM OF THE" 
00990 PRINT"GAME IS TO REMOVE AS MANY PIECES AS POSSIBLE FROM THE BOARD" 


01000 PRINT" 
01010 A1S=KEY: IFA1#=""THEN1010 
01020 RETURN 


##% HIT ANY KEY TO CONTINUE #*#*" 


SCREEN MASTER 


Screen Master is a program | 
wrote that allows you to copy 
your normal screen onto your 
hidden screen, copy your hid- 
den screen onto your first 
screen, and swap between the 
two. This is a fast and easy way 
to store and retrieve a second 
screen-full of information. The 
demonstration program shows 
some other applications in 
BASIC programs. 


Although the program loads 
the machine language at mem- 
ory location 1050 (Decimal) on- 
wards, it can be placed any- 
where in memory. The machine 
language routines are broken 
up into separate lines: 

290 and 300: screen swapping 
data. 

310: moves the normal screen 
onto the hidden screen. 


98250 REM * %* * SCREEN MASTER * * * By Wayne Grant. 
@S269 RESTORE 28@ :FOR I=@ TO 5@ :READ D 
@9278 POKE 1+1958,D :NEXT I :RETURN 
QGI2SB DATA 121, 254,08, 48, 42, 254,1,48, 26 
BB29SB DATA 33,9,248,17,9, 244, 62,255,1,255,3,197,78 

QBI3SGG DATA’ 235, 78,113,235, 112,35, 19,193, 11, 184, 32, 242, 281 
OPISIGD DATA 33,8, 244,17,8,249,1,5,4, 237,176, 281 

QI32B DATA 33,8, 24GB, 17,8, 244, 1,8,4, 237,176, 281,09 


CATCH 


The object of the game is to 
catch as many asterisks as you 
can, by using the square brac- 
kets as controls (left and right 
respectively) to control your 
character, being the letter “t’. 

This program can easily be 
converted to run on other com- 
puters as the BASIC used is 
fairly universal, and quite sim- 
ple. 


David Holderness 
Wahroonga NSW 


1@ CLS:CURS27,8:PRINT"C A T C H":PRINT:PRINT:PRINT"((Hit a ke 


20 Ir KEYS = "" THEN 20 

3@ PCKE 220,16:FOKE 257,97 
4@ CLS 

5@ CLEAR 

60 M=¢ 

7@ O=5¢ 

8G SP=P 

Q9@ X=INT(RND * 32) 2 

F X = @ THEN 9@ 


320: moves the hidden screen 
onto the normal screen. 

These three sets of data can 

be used individually or al- 
together using line 280 as a 
selector (as shown). After run- 
ning the program try listing the 
program, then type 
USR(1050,2). Don’t panic! Type 
USR(1050,2) again. 
After running the SCREEN 
MASTER program type in: | 
J=USR(1050,0) to copy the 
normal -screen onto hidden 
screen. J=USA(1050,1) to 
copy the hidden screen onto 
normal screen. J = USR(1050,2) 
to swap the two screens. 


Wayne Grant 
Canterbury NSW 


y to begin))" 


380 FOR G = 1 TO 3Q:NEXT G- 

396 CURS X,Y:PRINT " " 

400 FOR G = 1 TO 39:NEXT G 

410 I? F=4 THEN GOTO 43g 

42@ LET F=F +1:GCTO 36@ 
43% M=sM4+1:CURS 1,1%:PRINT "Misses = "5 
440 IF M = 3 THEN PLAY £,24:GUTO 55¢ 

45@ CURS 1,L:PRINT SPC(64) 


230 
240 
250 


DWOr 
wo 


S K,L:PRINT"T" 

CURS X,Y:PRINT"x" 

IF T = O THEN 22¢ 
P3S=KEY$: IF P3Z="" THEN 260 
IF P3Z<> "" THEN 29¢ 
CURS X,L :PRINT "T" 

T=Tel 

GOTO 160 

T=O 

CURS X,Y:PRINT "x" 

IF Y=5 AND X <> K THEN 33¢ 
IF X=K ANL Y=L-1 THEN 472 


260 Y=Y+l 
27@.CURS X,Y:PRINT '*" 


280 
29@ 
308 
310 
313 
315 
320 
33 
342 
350 
36¢ 
37@ 


GOTO 160 

CURS K,L:PRINT " " 

IF P38 = "3" THEN LET K=K+2 
IF P3Z = "C" THEN LET K=K-2 
IF K> 64 THEN LET K=64 

IF K< 2 THEN Lil Ke2 

GOTO 199 

W= .INT(RND x 15)41 

PLAY W3Wa33We7 3 We33W 

F=9 

CURS X,Y 

PRINT "x" 


46@ GOTO 9¢ 

47@ wW=INT(RNDX¥ 12)¢1:PLAYW;wele2 

48@ SG=SH+1G:IF SP=350 OR SP=5GG THEN GOSUB 62g 
49® CURS 1,12:PRINT "Score = "386 

5@¢6 IF S@> HY THEN LET HG=S¢ 

51@ PRINT:PRINT "Highest score = ";H¢ 

52@ CURS 1,L:PRINT SPC(64) 

53@ LET O=0-1 

540 GOTL 96 

55@ CLS 

56@ PRINT TAB(23);"G AM E OV & R" 

570 PRINT:PRINT"Would you like to play again ?" 
58@ p2S = KEYS: IFP3g=" THEN 58g 

590 IF P3%="Y" THEN CLS:GOTO6¢ 

60@ IF P3g="N" THEN PRINT "Bye then.":END’ 

61@ GOTO 58¢ 


626 PLAY 1563136519363;10;13,4 
63@ CURS 1,1@:PRINT SPC(12) 

640 FOR I= 1 TO 5 

650 CURS 1,1@:PRINT "Misses = 6" 
660 PLAY 2,2 

670 CURS 1,1%:PRINT SPC(12) 

680 PLAY £,2 

69@ NEXT I 

700 M=%:0=58 

710 RETURN 


95 


O01 Q@QREM By Richard Larkin 


@@i11Q0REM CATCH 
@@i20 CLS =: PRINT#FTABC7) "Welcome to Catch. In this game you have to collide wit 
h"#"a certain number of dots. You will be Chased by a Computer guardthat will st 


art on the right side." 


@@i2@ PRINT " To get points you must avoid capture and catch dots. If you go off 
a Side you will come back on the other Side. The suard can not follow you off a 
g ny side." 


@@i4@ PRINT “You start in the middie. If the SuUard catches too many dots you can 
not fill your quota and will lose. "#"<«,) LEFT" #"<.) RIGHT" &" <A) UP" Z" ¢Z) 


DOWN" 


@@i15@ POKE22@,63 : PRINT "The computer guard gets faster So watch cut! "F"Any key 
: er : to start.." : I=USR(32774) 
Catch is an addictive moving 


graphics game. You catch the _ @@16@ CLEAR + POKE162,30 : POKE163,128 + H1=.6 
dots and the computer catches @@17@ SDE : Q=INT((1.1-Hi)*1z) + CLS + LORES : FOR X=QTO19+Q : SET INTCRND*87+20 
you. >, INTCRND*31+8) + NEXT X 
Richard Larkin @is@ J=0 : PLOT 5,3 TO 5,45 TO 121,45 TO 121,3 TO S,2 : X=64 + Y=24 ! N=O: M=O 
Dee Why NSW : Bi=10@ : O1=24 = Vi=O : 11=@ = SD4 


@@19@ CURS 22,16 : PRINT "Any key to start ...."3 # I=SUSR(Z2774) + CURS 1,16 : P 
RINT {RES 32}; 


; Sprace is a real time reflex 
game. Just for fun. 
Richard Larkin 


Dee Why NSW 


MAiIPGREM SeERALE 


MABLIQ@REM By Rithared Larkin 


VIGISIWREM First a SItIW Stage through A Passage Way. 


vn ij { ee ee f Pea yt Ga ta ' rer’) ef o Pee, mp py = pie Sue oi ahs Caen ones Bele ft 
WOLaw Sted = MORMAL + SDE &¢ POXE i6ce,. TM § PON=ZLE7,12S5 : wAiee 4, 4: OS &§ SDS : 
mae ) Sera 0) ST Saat A. eee ” ro Ran ag th a OT aa at ana ajlm yr 47 m “yy inp ag ey ore ; 
FOSUB S30 s FOR Ke-ida7O-2 2 READY &§ PONEX,Y = NEXT X & PRINTS Type any sey to s 
{ gh S8tee sere, SiC usege, 
i aU } t d Pes ees it ry t 4. } 
Ry itt ey seis oe T we. rs — hs n = c 
i I Vl | Ye, # a ti ft re \v Ly a or a ee Se Sa ap n ts ' aide Saar © r lay = | a | ay e ) 
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@@20@ RESET X.Y 3 POKE2S7,1 : A=PEEK(258) = IF A#1 THEN LET Y=Y+1 ELSE IF A=26 T 
HEN LET Y=sY-1 ELSE IF A=46 THEN LET X=X+1 ELSE IF A=z44 THEN LET X=X-1 


@@21@ IF X)119 THEN LET X=7 ELSE IF X<(7 THEN LET X#119 ELSE IF Y) 42 THEN LET Y=5 
ELSE IF Y(5 THEN LET Y=243 


@O226 Z=( NOT( POINT(X,Y)>) 3 IF INT(B1)=X AND INT(O1)#Y THEN 290 


@@270 IF Z THEN 25@ ELSE LET T=T+i : S=xS+T © RESET X,Y = CURS 28,16 : PRINT"SCOR 
E ="Ss : PLAY2@ : IF T(19 THEN 25@ ELSE LET J=0 : H1i=#H1+.05 : T=@ : IF H1)1 THEN 
LET H1=i 


022480 GOTO 178 


@@z50 SET X,Y : RESET INT(CB1),INT(O1) : IF INT(B1))X THEN LET Vi=s-Hi ELSE IF INT 
(B12) <«X THEN LET V1i=H1 


@BZE0 IF INTCO1))Y THEN LET I11=-H1 ELSE IF INT(O1)<¢Y THEN LET Ti=H1i 


@0270 Bi=B1+V1 : O1=O1+11 : IF INT(B1)=X AND INT(O1)=Y THEN 290 


QOz6O@ IF POINTCINT(CB1), INTCO1)) THEN LET J#J+1 3 IF J#Q THEN CURS 27,6 : PRINT"I 
MPOSSIBLE." * PLAYE, 235, 234,233, 232,231,2 : GOTO 290 ELSE SET INTCB1),INTCO1) : 
GOTO 208 


@@290 FOR X=1T01@ : PLAYX : K1$=KEY ! NEXT X = CLS ! PRINT#¥¥"You have been hit 
SI 'PF 'Tatal score="S+T 


M0700 PRINT"Any key ta Play again." : I=USR(22774) : GOTO 168 


QO250 IF RND).S THEN PONENT CORND*+64-23200), 251 

OO26@ POKEC, S2 : PRINT = IF RPEEKC CHES. THEN OUTS, 39 = OUTS, 65 § F=r+i@ 
M@O270 IF PEEWXCCIQ) SS AND PEEK(CIQ) S51 THEN 20@ Ei Se PONEC: 255 

VIS K=K+) = TF KK O41 004100 THEN CURS@ = PRINT F : GoTo ~4Q 


@M290 CURS 26, 2 PRINT "Well done {!" : PLAY®,& : Q=O+1 : GOTO 160 


WO2z00 FOR X=@TO09 = FOR Yee2S0TO0247 STEP-1 = POKEC,Y = FOR Z=@7T010 =: OQUT2,59 : OUT 


2,65 © NEXT Z : NEXT Y = NEXT X : POKEC, 252 : PLAY®@,10 


@0210 CLS = PRINT#*"Yau have "S1i*1O" points." § IF INTCS1))100 THEN PLAYS353:4:9 
©: PRINT"Wel! done ‘'!" a : 


WO220 PRINT"Type any key to try again" ! IL=UGRCZ2774) 3: GOTO i150 


@@TT@ CLS.: PRINTF¥"The idea of the same is‘for you the "CHR( 255)" to avoid the 


"CHRC253) 4", "CHROZ54)" and "CHR(Z52)"$3 and keep your fuel positive by docking"# 


“with the "CHRC251) 


Q@Q234@ PRINT"IF you run cut of fuel you will not be able ta move "F"and will cras 


he "F"' <7? moves you left. "F"")’ maves you right. "RETURN 


OO250 DATA 102,129,129, 129,0,0, 8 24, 24, @, @, 8, 129,129,129, 102,129, GE, @, 60, 66, 66,6 


6,0,0,66,66, 66, 60,.0,66, 129,90, 0, 129, 66,0, 60, 26, 326, 36, 356,60, 2, 66,129,0,0 
M2262 DATA @,@,0, 0,0,66, 36, 24, ae =6,66,0,0,0,0, 0 

@@=70@ DATA 255, 255, 255, P24, 224, S24, PEA, P52, PSE, P52, PEA, SEG, SPH, PEG, 224, 224 
QB2SQ DATA 129,129, 66> 6G, 36s 26> 24, 102, 102, 24, 36. 36, G6 BGs 129,125 

00290 DATA 231,189, 255, 60, 126, 129, 126.0, G6, 195, 26, 24, 24, 36, 195,66 

O0400 DATA iSt, 126,192,219, 219, 182,102, 157,152,102, 182,219, 219, 102, 126, 155 


M0410 DATA 165, 251, 251,251, 66, 66. 102,60, 24, 24, 24, 24,68, 251,251, 126 


, dt am 


The program, Memsee, is a 
monitor with a difference. It has 
no fancy commands, but it 


dumps 64 by 15 pieces of mem- 
ory to the screen in ASCII code. 
It is like having a window on 
your computers memory, as it is 
continually updated. When you 
change a location or use certain 
BASIC commands you can in- 
stantly see the effect of it on the 
section of memory you are look- 
ing at. 


Richard Larkin 
Dee Why NSW 


@@1@@REM BY R.LARKIN 


@@11Q0REM Make sure you type line 1@with at ‘least 11 characters 
@O120REM after the rem statement, other wise Program will not 
@@iZOREM work. 

@014QREM This program displays contents of memory to screen in 
Q@@iS@REM ASCII format. You may |!ook at your memory and change 
@OiG@REM it in much the Same way aS with Moniter. 

@@i7@REM BUT as the screen is continually being uP dated 
QBiS@REM you can see the effects of your changes. 


00190 FOR X=2208TO2Z7@S+11 =: READ Y =: POKEX,Y : NEXT X : REM DELETE 110,200 after 
first RUN then save. Do not edit line 100. 


QWZWW DATA 22Z,O,O, 17, 240, 1,192, 3, 227,176, 201 


Q@@210 CLS : PRINTF"To move memory pointer use “A’ and ‘Z’ for uP and down. "#F"And 
‘ys’ and °.’ for teft and right. "#F" Type (CC) ta change a location. "#F"Type (L) to 


change your location" 
OWZz2O0 PRINT "Any key to continue.." = I=USR(32774) 


Q@V220 POKEZ2@9,0 : POKE 2318,0 : POKE22@,0 : CLS : @=@ : W=@ : CURS 11,16 : PRIN 
T "LOCATION ->) 479"3 =: CURS 25,16 : PRINT "CONTENTS ->) "“PEEK(479)5 


QOZ4VI=USR(2708) +: POKE-2617,27 = CURS 48,16 : PRINT PEEK(L)" "$3 = POKE257,1 = 
POKEZ59,1 : K1$=KEY =: IF K1i$=""" THEN 240 


6 oozse IF Kig="Z" THEN LET W=W+64 ELSE IF Ki$="Q" THEN LET W=W-64 ELSE IF Ki$="," 


THEN LET W=W-i ELSE IF Kig#="." THEN LET W=W+1 
OOz60 IF K1$="C" THEN 700 ELSE IF Ki#="L" THEN 358 
Q@@270 IF W255 THEN LET Q=084+1 = W=W-256 


QO280 IF W(@ THEN LET Q=0-1 : W=W+256 


@0290 POKES209,W = POKEZZ1@,@Q = CURS 22,16 : L=Q+#2Z56+W+479 2: PRINTL" “3 3 GOT 
0 240 
@O200 Ai$=""": CURS 48,16 : PRINT "/---/"€AG OF; 


Q@@21@ I=USR(2I0E) = KIS=KEY =: IF K1$) "2" OR Ki$<"@O" THEN 310 ELSE PRINT Ki$; : A 
1$=A1$+K1$ 


@@220 I=USRCZ7OS) = KIS=KEY = IF K1$<"@" OR CA1$="2"ANDK1$)"5") THEN 320 ELSE PR 
INT K1i$$ * ALS=ALHE+K1S 


@@220 I=USR(2208) = KIS=KEY = IF Ki$¢"@" OR K1%$) "9" THEN 32@ ELSE IF A1$="25" AN 
D K1$)"S" THEN 320 ELSE PRINT K1$s = A1LS$=A1$+K1$ 


@Oz40 PLAY® = F=INTCVAL(AI$)) = CURS 50,16 =: PRINT *A5S 32¢3 : POKEL,E : GOTO 270 
@025@ Ais=""": CURS 23,16 : PRINT "/~----/"€RE 8}; 


Q@BZE@ I=USR(2IOE) + KiS=KEY = IF K1$<("@" OR Kis) "6" THEN 360 ELSE PRINTK1$; =: Al 
S=ALS+K1S 


@@27@ I=USR( 2708) = KIS$=KEY : IF K1$<("@" OR (A1$="E"ANDK1$)"5") THEN 378 ELSE PR 
INT K1$$ = A1S$=A1$+K1$ 


@@38@ I=USR(2388) : K1$=KEY 
RINT K16s 8 A1S=A1$+K1s$ 


IF Ki$¢<"@" OR (A1L$="65"ANDK1$) "5") THEN 38@-ELSE P 


@@398 I=USR(238E) : K1i$=KEY IF K1$<("@" OR CAL$="E55"ANDK1$) "3") THEN 390 ELSE 


PRINTK1€@3 ! A1LS$=A1$+K1$ 


@0@408 I=USR(2308) : Ki$=KEY 
PRINT K1i$3 # A1S$=A1S$+K1$ 


IF K1$<"@Q" OR CALS="E5S5S3"ANDK1$)"5") THEN 400 ELSE 


@8410 PLAYO : L=INTCVAL(A1$)> = Q=L/Z56-1 : W=L-256*(L/256)-22% : CURS 22,16: P 
‘RINT €AS 32}: : GOTO 270 


This game is really only suitable 
for Microbees with the faster 
clock rate modification. Even 
so, it gives an example of the 
logic behind real time games on 
a memory mapped screen. The 
DATA statements define the 
PCG characters used for the 
maze and monsters etc. 

Line 430 can be altered to 
allow input from a joystick at the 
parallel port. The maze can be 
redefined by changing the 
PRINT statements in lines 260 
to 380 (GG = wall, CD = dot) 

C.D. Roberts 
Hyde Park SA 


MUNCH 


A108 
082110 
0@120 
90120 
98140 
a8150 
90140 
0@1790 
90188 
02199 
AA2OO 
MGH21O 
QALZLOD 
AAZZO 
PA2Z4D 
OO2590 
9H260 
AALTO 
aAO2BO 
9Q290 
AaZ00 
Oa210 
AOZ20 
MIZE 
H9540 
PATO 
0OS60 
OOZ7A 
AOZBO 
AGgZIO 
AOA 
M2410 
QA420 
HO4 TO 

THEN 
9O440 
M4450 
20460 
9@470@ 
00480 
00490 
AAS 
0@S1O 
90520 
GOS =O 
00540 
ea550 
205690 
9@5790 
aeoSBea 
8A5 90 
20600 
00610 
QO620 
90620 
00640 
20650 
AO560 
QO@47@ 
2O6Be 
206998 
20700 
90710 
20720 
20720 
00740 
00750 
02762 
00772 
00@7Be 
00798 
GB 
008190 
00820 
00870 
00840 
08850 
90860 
00870 
20880 
20890 
00900 
00910 
0O920 
00920 
20940 
2@950 
909620 
002970 


REM * & & MUNCH & & & 

CLS: POKE 220,16: CURS 23,5: PRINT " & & & MUNCH & & Kk" 

CURS 21,6: PRINT “Written for the MICROBEE” 

CURS 24,7: FRINT “ bv C.D.Roberts” 

DIM AC4),8(4),C(4) ,F(4,1),0(4) 

K=35: CO=.4: C(1)=61920: C(2)=61924: C(3)=62048: C (4) =62052 

RESTORE: LORES: FOR 1=64528 TO 64719: READ Z: POKE I,Z: NEXT I 

CLS: H=0: S=0: GOSUB 210: GOSUB 250 

GOSUB 430: GOSUE S50: IF H THEN 750 

IF W THEN FLAY 103203190324; FOR I=1 TO 800: NEXT I: GOSUB 210: GOSUB 250 
GOTO 184 

FOR I=1 TO 4: POKE ACI), F (1,0): POKE A(I)+1,F (1,1) 

ACIV=C(I)s F(I,@)=199s FCI,1)=199: NEXT I 

E=62270: FOKE €,19%: POKE E+1,194: RETURN 

REM * & % MAZE & xk & 

CURS 1,2: PCG: PRINT CAS 641;CAS4 71] . 

PRINT CAS 643; "GGCDCDCDCDCDGGGGCDCDCDCDCDEF CDCDCDCDCDGGGGCDCDCDCDCDGG" 
PRINT CA8 641; "GGEFGGGGGGCDCDCDCDGGCDGGGGCDGGGGCDGGCDCDCDCDGGGGGGEFG6" 
FRINT CAS 641; "GGCDGGGEGGGCDGGCDGGGGCDGGGGCDGGGGCDGGGGCDGGCDGGGGGGCDGG" 
FRINT CAS 641; "GGCDCDCDCDCDGGCDCDGGCDCDCDCDCDCDCDGGCDCDGGCDCDCDCDCDGG" 
PRINT CAS 6413; *GGGGGGCDGGGGEGGGCDCDCDGGEGCDGGEGCDCDCDGGGGGGGGCDGGGGGG" 
FRINT CAS 6413; "GGCDCDCDCDCDGGCDCDGGCDGGHICDHIGGCDGGCDCDGGCDCDCDCDCDGG" 
PRINT CAB 641; "GGCDGGGGGGCDCDEF GGGGCDCDCDEFCDCDCDGGGGEFCDCDGGGGGGCDGG" 
PRINT CAS 643; "GGCDCDCDCDCDGGCDCDGGCDGGHICDHIGGCDGGCDCDGGCDCDCDCDCDGG" 
PRINT CAS 64]; *GGGGGGCDGGGGGGGGCDCDCDGGGGCDGGGGCDCDCDGGGGGGGGCDGGGGGG" 
FRINT CAB 6413; "GGCDCDCDCDCDGGCDCDGGCDCDCDCDCDCDCDGGCDCDGGCDCDCDCDCDGLG6" 
PRINT CAS 64]; "GGCDGGGGGGCDGGCDGGGGCDGGGGCDGGGGCDGGGGCDGGCDGGGGGGCDGG" 
PRINT CAS 641]; "GGEFGGGGGGCDCDCDCDGGCDGGGGCDGGGGCDGGCDCDCDCDGGGGGGEF GG" 
PRINT CAS 64); "GGCDCDCDCDCDGGGGCDCDCDCDCDABCDCDCDCDCDGGGGCDCDCDCDCDGG" 
FRINT CAS 641;CAS4 713;: NORMAL: Q=184: W=0: T=1:CURS 128 

PRINT " @ -"\" A ="\" Co -"\" J =": POKE 61572,204 

FOKE 61627,11: POKE 61701,17: POKE 61765,9: PLAY 24,2: RETURN 

REM * & *% MOVE MAN & & & 

M=PEEK (258): IF M=17 THEN LET D=-64 ELSE IF M=1 THEN LET D=64 ELSE IF M=27 
LET D=-2 ELSE IF M=29 THEN LET D=2 ELSE S520 

Z=PEEK (E+D): IF Z=199 THEN 520 

OUT 2,64: OUT 2,0: IF Z=195 THEN LET P=1@: Q=Q-1: GOTO 510 

IF Z=197 THEN PLAY 10,2: P=50: G=1: GOTO 5198 

FOR I=1 TO 4: IF ACI) =E+D AND G=@ THEN NEXT# I 520 

IF ACI)=E+D AND G?®@ THEN NEXT& I 490 ELSE NEXT I: GOTO 310 

P=100: PLAY 15,2: ACI)=C(I): IF FC(1,@)=195 THEN LET Q=Q-1 

FPOKE A(T), 202: POKE ACI) +1,203: FCI,@)=199: FC(I,1)=199 

FOKE €—,22: FPOKE E+1,22: E=E+D: IF Q=@ THEN LET W=-1: G=@: C@=C0+.15: K=K-8 
FOKE €,192: POKE E+1,194: S=S+P: P=a 

CURS 1,9: FRINT CI7 SJ: RETURN 

REM & * &* MOVE MONSTERS & ®@ 8 

IF G>@ THEN LET G=G+1 

FOR I=1 TO 4: IF RND>C@ THEN LET X=A(I): GOTO 670 

X=A(I)-E:s IF X>® THEN LET D=-64 ELSE LET D=64 

V1I=FRACT (FLT (CE) /64): Y1=FRACT(FLT (ACI) )/64) 

IF V1i>Y1 THEN LET L=2 ELSE LET L=~2 

IF RND>.& THEN LET U=L: L=D: D=U 

X=A(1)+D: V=PEEK(X): IF V<199 THEN 650 

X=ACT) +L: V=PEEK(X): IF V<199 THEN 650 

X=A(T)-L: V=PEEK(X): IF V°199 THEN 650 

X=A(I)—-D: V=PEEK(X): IF V>198 THEN LET X=ANI): GOTO 670 


IF G=0 AND V=192 .THEN FOKE ACI),200: FOKE A(I)+1,201: H=-1: NEXT® I 730 
IF G>® AND V=192 THEN LET X=A(I1) 
OCT)=A(T)s AC(T)=Xs POKE OCI), F(1I,@): POKE OCI) +1,F (1,1) Mg 


F(T,@)=PEEK (ACI) )s FCI, 1) =PEEK (A(I) +1) 

IF G=@ THENFOKEA(I),200: FOKEA(I)+1,201 ELSEPOKEAC(I),202: POKEACI) +1, 202 
NEXT I 

IF G>K THEN PLAY 24 

IF G>kK+5 THEN LET G=@: FLAY 18;22 

RETURN 

REM * & * MAN HAS BEEN CHOMPED & & & 

CURS 32,1: PRINT “CHOMP'": PLAY 4;8: IF T=3 THEN 790 

FOR I=0 TO 800: NEXT I: POKE E,32: POKE E+1,32: T=T+1i: H=0 
CURS 22,1: PRINT CA& 323: GOSUB 210: GOTO 180 

REM * * * END * & & 


PLAY 4;4;8: FOR I= TO 80@: NEXT I 

CLS: CURS 22,7: PRINT "YOU SCORED ";S5;" FOINTS!" 
CURS 25,9: PRINT "ANOTHER GO (Y/N) 7" 

POKE 257,1: X1$=KEY%: IF Xi1$="" THEN 82@ 

IF X1$<>"Y¥" AND X1$<>"N" THEN 820 

IF X1$="Y" THEN LET C0=.4: K=35: GOTO 170 

CLS: POKE 220,111: END 

DATA 0,7, 24, 32, 64, 76, 133,129,171, 128, 72,71,32,24,7, 
DATA 0,224, 24, 4,2,50, 161,129,193,1,18, 226, 4, 24, 224, 
DATA ©,0,0,0,0,0,0,1,1,20,9,9,0,9,9,@ 

DATA @,0,0,0,0, 128,128,0,0,0,0,0,0,9 


rs) 
® 


0,2, 
DATA @,@,0,@,1,3,7, 15, 15,7, 3,1,2,9,0,@ 

DATA 0,2, 0, @, 128, 192, 224, 240, 240, 224, 192, 128, 0, 0,0, 

DATA 170,85, 17,85, 170, 85, 170, 85, 170, 85, 170, 85, 170, 85, 170,85 
DATA ©,7,15, 231,29, 57,63, 6%, 53, 58, 62, 62,127,127, 255, @ 

DATA 0,224, 240, 248, 184, 156, 252, 252, 172, 92, 252, 252, 254, 2754, 255,0 
DATA 0,7,8,16, 18, 38, 22,22, 40, 39, 32, 32, 64, 64,170,0 

DATA 6,224, 16,8, 72, 100, 4,4, 20, 228, 4,4, 2,2, 178,@ 

DATA 0,0, 0,0,0,8, 28,42, 72,8,8,8,9,%,9,2 


99 


100 


NOUGHTS & CROSSES 


The program is based on a Firstly, the two players are 
series of 3 grids. The first grid asked for their names and the 
is Player One, the second is game continues as a normal 
Player Two and the final one is game of ‘TIC-TAC-TOE’. 


the overall status. For these | The program runs from line 
used the variables Q, C and A 1001 which branches to sub- 
respectively. 


_1IST 


= 


00002 FOKE 220.20:POKE 140.1 
00005 LORES 
00008 REM *#+«* WRITTEN BY ROBER:T BOYCE ON 26/3,/83 + 
00010 CLS: SPEED1 00: UNDERLINE: CUF%S20, 8: PRINTCHR( 7) "NOUGHTS AND C:ROSSES"CHR(7) 2 NOIR 
MAL : SFEEDO 
00015 CURS 18, 11:PRINT "Written by ROBERT BOYC*E for the Microbee" 
©0020 GOSUB 500 
00025 CLS:DIM A(2,;2):DIM Q(2;2!):DIM C(2;2) 
00050 CURS 2,8:F'RINTCHR(7);:"GET READY TO CHALLENGE YOUR FRIEND AT A GAME OF TIC:- 
TAC-TOE":FOR X=1 TO SOO:NEXTX: POKE 220,15 
00051 CURS 10-10: INPUT "PLAYER 1°S NAME :":01$ 
00052 IF O01%="" THEN GOTO 51 
00052 CURS 10, 11: INPUT "PLAYER: 27S NAME: "3L1¢:: IF Li¢$="" THEN GOTO 53 
0005S CLS:GOSUB S550 
00062 ELS 
00068 REM ++ PLAYING A FRIEND: *-« 
00066 LORES 
60070 FOR S=0 TO 121:SET S-33: NEXTS:FOR S=0 TC) 121:SET S-19:NEXTS:FOR D=47 TC! S 
STEF -1:SET 40.D3:NEXTD:FOR D= 4°57 TO S STEP -1:SET 81.D:NEXTD 
00074 CURS 1:15:PRINT " i 
00075 CURS 6-15:PRINT CHR(7)3:: PRINT "WHICH QUéADRANT PLAYER 1(":016:")i"33 INPLIT E 
1$: IF E1$="" THE'N GOTO 75 
00076 E1=VAL(E 1$):P=74:1F E1i<1 OR E1>9 THEN GCITO 74 
00080 GOSUB 1000 
00090 REM tet CROSSES etek: 
O0092 W=INT(X1) §X=INT(X2) = Y=INT (Y1)* Z=INT(Y2) 
00095 FLOT W.-Y TO X>Z:FPLOT X:-Y TO W,Z 
00098 IF I=9 TKIEN GOTO 2000 
00100 IF R4=2 THEN RETURN 
00130 CURS 1,1£3:PRINT " 


00132 CURS 6-15:PRINT CHR(7)32 PRINT "WHICH QUéSDRANT PLAYER 2("sLi¢s")i"ss INPLIT E 


00134 F=130: IF E1<i OR E1>9 THIEN GOTO 130 

00136 GOSUB 10¢'0 

00140 REM ‘4% NOUGHTS #4 ' 
00142 W=INT(XK1) 2 X=INT(X2) 2 Y=INT (Y1) 2 Z=INT (Y2) . 

00145 FLOT W-Y TO W.Z:PLOT W-Y TO X-Y:PLOT X,>‘f TO X>Z:PLOT W- Z TO X-Z 
00146 IF I=9 THEEN GOTO 2000 

00148 IF T4=2 THEN RETURN 

00150 GOTO 74 

00499END ; 

00500 CURS 30, 16:PRINT " .. FRIESS ANY KEY .."!: 
00510 IF KEY=""" THEN 510 

00520 RETURN 

OOSSO CURS 12, 1:PRINT "... RULES ..." 

0OSSS PRINT:PRINT "THE BOARD IS SET UP AS NORMAL INTO THE "“:PRINT "NINE QUADR:ANT 
S NUMBERED LIKE SO .." 

00560 PRINT:PRINT " 1 . 2 | S":PRINT " . «© © « « "8PRINT " 4 . § 
6":PRINT " . © e « "SPRINT " 7 . 8 . i os 

00565 FRINT:FRINT “THE PLAYER GOING FIRST IS #4LWAYS “CROSSES’ " 
00570 GOSUB 300:: RETURN 

01000 REM 

01001 J=INT(E1):0N J GOTO 101C:, 1020, 1030, 1040:. 1050, 1060, 1070, 1080, 1090 
01010 X1=3: X2=3@8: Yi=45: Y2=35: IF A(O,0)=1 THEN GiOTO P 

01011 IF FP=130 THEN 1013 

01012 Q(0:0)=1::GOTO 1014 

01013 C(0;0)=1 

01014 GOSUB 4000 

01015 A(O0,0)=1 :GOTO 1200 

01020 K1=43: X2 =782 Y1245: Y2=35: IF A(O,1)2#1 THEM GOTO P 

01021 IF P=130 THEN 1023 

01022 Q(0:1)=1:GOTO 1024 

01023 C(0,-1)=1 

01024 GOSUB 4000 

01025 A(O,1)21::GOTO 1200 

01030 X12842: X2 =119:Y1"45: Y2235i: IF A(O,2)=1 THEEN GOTO P 


routines from the quadrant No. 
and then checks to see who the 
winner is or whether the game 
is a draw. The program is self- 
explanatory. 


Robert Boyce 
Mulgrave VIC 
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01031 IF P#130 THEN 1033 
01032 Q(0,2)=1:GOTO 1034 
01033 C(0,2)=1 
01034 GOSUB 4000 
01035 A(O,2)=#1::GOTO 1200 
01040 X1#3:X2= 38: V1i=2312Y2=21:I1F A(1,0)=1 THEN GOTO P 
01041 IF P=130 THEN 1043 
01042 Q(1,-0)=1 GOTO 1044 
01043°C(1,0)=#1 
01044 GOSUB 4000 
01045 A(1,0)=#1::GOTO 1200 
01050 X1=#43:X2=78: Y1=231:Y2=21: IF A(1,1)=1 THEN GOTO P 
01051 IF P=130 THEN 1053 
01052 Q(1,.1)=1:GOTO 1054 
01053 C(1,1)=1 
01054 GOSUB 4000 
01055 A(1,1)=1::GOTO 1200 
01060 X1#84:X2 =119: Y1=31:Y2=21 :IF A(1,2)=1 THEEN GOTO P 
01061 IF P=130 THEN 1063 
01062 Q(1-2)#1:GOTO 1064 
01063 C(1,2)=1 
01064 GOSUB 4000 
01065 A(1,2)=1::GOTO 1200 
01070 X1=#3:X2= 38: Y1=17!Y2=7: IF’ A(2,0)=1THEN GOITO P 
01071 IF P=130 THEN 1073 
01072 Q(2-0)=1:GOTO 1074 
01073 C(2,0)=1 
01074 GOSUB 4000 
01075 A(2,0)=1::G0TO 1200 
01080 X1#43:X2 =78: Y1=17: Y2=7: IF A(2:1)=1 THEN GOTO P 
01081 IF P=130 THEN 1083 
01082 Q(2,1)=1:GOTO 1084 
01083 C(2,1)=1 
01084 GOSUB 4000 
01085 A(2,1)=1::G0TO 1200 
01090 X1284:X2=119:Y1217:Y2=7: IF A(2,2)=1 THEEN GOTO FP 
01091 IF P=130 THEN 109% 
01092 Q(2.2)=1:GOTO 1094 
01093 C(2,2)=1 
01094 GOSUB 4000 
01095 A(2,2)=1&G0TO 1200 
01200 I=I+1:RE TURN 
02000 FOR X=1 1°10 1000:NEXTX:CLS3 
02010 FOR X=1 TO 10:F=INT(RND#:24) PLAY F,1:NE><TX 
03000 CURS 16-7:PRINT "%« THE GIAME WAS ADRAW *" 
03010 CURS 20- 8: INPUT "PLAY AGIAIN (Y/N) "3F1$% 
O3020 IF F1%($1+1)="Y" THEN RUIN 
03030 CLS:END 
04000 IF Q(0;0)=1 AND Q(1-0)=1 AND Q(2:0)=1 THEN GOTO 5000 
04010 IF Q(0,1) =1 AND Q(1,1)=1 AND @(2-1)=1 THEEN GOTO 5000 
04020 IF Q@(0,2)=1 AND Q(1,2)=1 AND Q(2,2)=1 THEN GOTO 5000 
04030 IF Q(0-0) =1 AND Q@(0-1)=1 AND @(0-2)=1 THEEN GOTO 5000 
04040 IF Q(1-0)#1 AND Q(1,1)=1 AND Q(1;2)=1 THEN GOTO 5000 
04050 IF Q(2,0) =1 AND Q@(2,1)=1 AND Q(2,2)=1 THEEN GOTO 5000 
04060 IF Q(0-0)=1 AND Q(1-1)=1 AND Q(2,2)=1 THIEN GOTO 5000 
04070 IF Q(0,2) =1 AND Q(1-1)=1 AND @(2:0)=1 THEEN GOTO S000 
04100 IF C(0,0)=1 AND C(1,0)=1 AND C(2-0)=1 THEN GOTO 7000 
04110 IF C(0O,1) =1 AND C(1,1)=1 AND C(2-1)=1 THEIN GOTO 7000 
04120 IF C(0,2)=1 AND C(1>2)=1 AND C(2,2)=1 THEN GOTO 7000 
04130 IF C(0-0) =1 AND C(0,1)=1 AND C(0,2)=1 THEEN GOTO 7000 
04140 IF C(1,0)=1 AND C(1,1)=1 AND C(1;-2)=1 THEN GOTO 7000 
04150 IF C(2,0) =1 AND C(2,1)=1 AND C(2,2)=1 THEEN GOTO 7000 
04160 IF C(0,0)=1 AND C(1,1)=1 AND C(2,2)=1 THEN GOTO 7000 
04170 IF C(0-2) =1 AND C(1,1)=1 AND C(2-0)=1 THEEN GOTO 7000 
04300 RETURN 
05000 R4=2:GOSUB 92:FOR X=1 TC! 1000:NEXTX:CLS:!!REM *##* PLAYER 1 WON tet: 
05005 FOR X=1 TC! 20:F=INT(RND*2/3) PLAY F.1:NEXTX!CURS 20:.7:PRINIT "PLAYER #* 1 > bx 
"3 2UNDERLINE :PRINT "WON": NOR‘MAL:GOTO 23010 
07000 T4=2:GOSUF3 142:FOR X=1 TO 1000:NEXTX:CLS: REM *** PLAYER 22 WON toto: 


07005 FOR X=1 TO 20:F=INT(RND*:24) :PLAY F,1:NE><TX:CURS 20-7:PRINT "PLAYER #4 7! #4 


“S$ SUNDERLINE?F'RINT "WON": NORMfAL?GOTO 3010 


. 
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NOVEL 


Novel is a program that was 
written just for fun. Run the pro- 
gram and it will create a story 
from the yes/no questions you 
ask it. If the ‘Bee decides the 
answer is ‘NO’ then the com- 
puter does nothing. If the 
answer is ‘YES’ then the ques- 
tion is changed in syntax to be- 
come the answer. The answer 
is then stored as part of a string 
array. To display the story, 
enter ‘print’ to the question 
input. 

The program is a good 
demonstration of the Microbee’s 
string handling abilities. The 
major part of it is dedicated to 
producing syntactically correct 
sentences. It isn’t exactly per- 
fect, but then | never was very 
good at English. There are a 


FX 


few funny results produced and 
I'll leave it to the English de- 
viated...ummm, orientated, to 
correct the program to process 
these little gloops. 

The program waits for a 

question to be input. It then 
checks for a question mark at 
the end of the question. If that 
is correct, a check is made of 
the verb that sits at the begin- 
ning of the question. The list of 
verbs checked is from line 200 
to 300. The list of verbs can be 
expanded on, just follow the for- 
mat. Example: 
200 A=SEARCH(AOS$,“Is”):IF 
A=1 THEN LET 
AO$(;4):;GOSUB “is” = 420: 
GOTO 310 

The string ‘Is’ is sought for in 
the input string. If it is in the fist 


NOLOO REM ¥XNoOVE 1 KX 


OO119 CLSSSTRS! 20000 )1S=O0;L=0;DIM A20 300) 


00120 A2$(90 )="" 


00130 FRINT’AskK Yes or No questions to create é stoFsy.” 
00140 TNFUT"Whet 15 the auestion?” AOS H=INTC RNDKFILT( LENS AOS ) 41 )IAS$=A0S( ob By H ) 
OO150 A=SEARCH( ADs "Frint" VIF AssO THEN 410 
00160 A=SEARCH! ADD "FRINT" STF Asoo THEN 410 


NO170 ALB=AOR slelotTF ALS=" 
OO180 H=SEARCH( AOGs" 7" )2TF B=O THEN CLOSFRINT’ That wasn’ t 


00190 ADS$=A0Sl ¢1eR) 


Pattern draws patterns on the 
screen depending on the values 
you type in, and some nice FX 
can be created. 


Richard Larkin 
Dee Why NSW 


character of the string then 
“Is“+ a space is deleted from 
the string. That's the LET 
AO$ = AO$(;4). The GOSUB 
(‘is’}420 jumps to the routine to 
insert the verb back into the 
string AO$ at the correct place 
so the question becomes a 
statement. 

Lines 320 to 410 do the punc- 
tuation, set the first letter of the 
string to capital, decide whether 
the answer to the question is 
yea or nay and if yea then stick 
it at the end of an array string. 

The last three lines of the 
program insert the verb in the 
correct place. 


Jon Barnett 
Northmead NSW 


THEN LET A0S$=ADS( 52)2°CGOTO 179 
>; question.” -GOTO 140 


NO2Z00 B=SEARCH! ADbs "Is" tTF A=1 THEN LET A0$=A08( 54)°CO5UK £" as") 420°G0TO 310 


OO2Z1O A=SEARCH! ADGs "Toes" ).IF A=1 


THEN LET AOQS=A086 4) ;G0OSUR CC" does") 420°60TO 310 


QO229 A=SEARCH( AD$s "Was" DLIF A=i THEN LET A0S=A0S$( 9S) ;GOSUK [C" was" 420°GOTO A410 


O0230 A=SEARCH( ADS s "Has" DIF A=1 


THEN LET AQ$=A0$6 7S) ;GOSUR EC" has" ] 420°;60TO 410 


N0240 A=SEARCH( AXGs "Are" ETF A=1 THEN LET AO$=A0SC FS) °COSUER EC" ere" d 420:C0TO 310 


QO2ZS0 B=SEARCH( ADs "Will" LIF A=14 


THEN LET A0$=A0$( 76 )°G05UR 0" will" ] 420:;G0TOG 310 


QOO2ZSS A=SEARCH ADs "Tlon’ t" FTF A=1 THEN LET AO$=A04. 57 )tGOSUR C" don’t") 420:G0TO 310 
N0256 A=SEARCH( AOS, "Won’ tL" STF A=1 THEN LET AOS=A0%( 57 )°GOSUR OC" won’ t" 7 420°;GOTO 310 


OO2690 B=SEARCH{ ADSs "Have" DIF A=1 


THEN LET AO#%=A0$6 94) °GOSUR EC" have’) 420:;60TO 319 


OO270 A=SEARCH( ADS, "Can" SIF A=1l THEN LET AO#=A0$( 75 )°GOSUR [" can") 420:G0TO 410 
QO280 A=SEARCH{ ADs "To" LIF A=1 THEN LET A0¢=A0$(54);C0S5SUR C"" 1 420°G0TO 310 

00290 A=SEARCH! ADSs"Could” JtIF A=1 THEN LET AOS=A0%0 57 )°G0SUB CC" coule" 7 420:GOTO 310 
NO300 B=SEARCH( ADSs "Might." SIF A=1 THEN LET AOS$=ADSC 97 )IGOSUR CC" might") 420°;GOTO 310 


OOSLO TF Ans. THEN 140 
OO320 T=INTORNDK4 DS TF [= 4 


THEN LET Ailgs="!" ELSE LET Alg="," 


@@i@O@REM FX 
@@11i@REM By Richard Larkin 
@@i2O0REM This program is for creation of patterns on screen! 


@@i3@ CLEAR =: CLS : PRINT#FEF'" Welcome to FX. The purpose of this program is to dr 
aw Patterns on the screen. All you have to do is choose a pattern type" 


@@i4@ PRINT"¢i TO 4), then type in 3 X-steps and 5 Y-steps. " 
O@1i5@ PRINT"I will then draw on the screen using your data. "F" Type (SS) to turn m 
ovement on and off. "F"Type (E>) to end pattern and restart. "F"Type <C> to turn on 


2 frame MOD on and off." 


QQiG@ PRINT"Any other key Will Stop and Start Pattern formation. "F"Any key toa ca 
nt j Vils@a a ae " = T=USRC Sel 7G) 


@@i70 POKEZZ0,@ = DIM X€4),YC4) 
OO@i8@ CLS © PRINT#&#F" PATTERN ¢1 TO 4)" 
@O@190 W=INTCVALCKEY)) © IF W¢i THEN 198 


WO20@ PLAYiIO = Cigs="" & Sigse"" & CLG & PRINTA¥" TYPE IN YOUR NJMBERS <1 TO 9)"4% 
"  X -X KX XK xX Y YO oY Yo oy" ; , 


QO210 FOR Z2=ATO4 


MAS2O Q=INTCVALCKEYI) & TF @¢i THEN 220 ELSE LET X¢€Z)9=Q ©: PRINT TARCZ#2+2303 © P 
LAYI@ = NEXT 2 


BO220 FOR Z=0T04 


YMI248 Q=INTCVALCKEY)) © TF O41 THEN 240 ELSE LET YOZ3=Q = PRINT TABCZ#2+i8903 
PLAVIO@ = NEXT Z 


QO250 POKESZ@,62 : PRINT#A" Any Key to Start ..2.." ? TSUGRCZS774) &: CLS ? LO 
RES § CURSI@@@ = A=Q@ ? C=@ : U=0 


WOZEA IF Cis="C" THEN CLS = CURS 950 
400270 ON W GOTO 390,400,410, 422 

MWO2ze@ C=C+KCA = UBUFYCQ) § A=A+1 : TF A=S THEN LET A=@ 

WO29@ IF C)t27 THEN LET C=C-128 

@220@ IF W447 THEN LET U=U-48 

@O210 IF Sis="S" THEN PRINT 

@O220 POKESS7,1 = KIS=KEY +: IF Kit="" THEN 260 

QWW220 IF Kis="E" THEN 138 

@034@ IF Ki#$<{)"C" THEN 360 ELSE IF Ci#="C" THEN LET Cis="" ELSE LET Ci¢="C" 

QWz5@ GOTO 26a 

QO=60@ IF K1i$()"S" THEN 36@ ELSE IF Sig="S" THEN LET Si$=""ELSE LET S1i$="S5" 

@@37@ GOTO 260 | 

@O38Q IF KEY=""" THEN 38@ ELSE 26 

@@39@ PLOTI C,U TO C,47-U TO 127-C,47-U TO 127-C,U TO C,U + GOTO 280 

@@40@ PLOTI C,U TO 127-C,47-U = PLOTI C,47-U TO 127-C,U : GOTO 280 

@041@ PLOTI C,U TO 127-C,U TO C,47-U TO 127-C,47-U TO C,U : GOTO 28@ 


OO@420 H=(47-U*2)/4 5 B=(1l27-C#2)/4 : PLOTI C,U TO 64,U+H TO 127-C,U TO 127-C-B, 2 103 
“3% TO 127-C,47-U TO 64,47-U-H TO C,47-U TO C+B,23 TO C,U : GOTO 280 
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This program is an expansion of 
the PCG Character designer 
which appeared in Your Com- 
puter some months ago. 

Using that program, and find- 
ing the need for designing more 
than 1 character, | wrote this 
program to allow 3 characters 
to be designed at once, as well 
as adding some other features. 

Because of the lack of space 
on the screen once the 3 
character grid has been drawn 
up, only one set of data can be 
put down the left side of the 
screen at a time, however this 
is not really seen as a problem. 

One special addition to the 
program is a “Drawing” mode, 
activated by the letter “D’. This 
automatically toggles the point 
when you move the cursor, 
making it easier to fill in large 
areas of the character(s). You 
can exit the drawing mode by 
pressing “D” again. 

The control keys are as fol- 
lows: 

ESC: Move cursor up 

TAB: Move cursor down 

[ : Move cursor left 

] : Move cursor right 

SPC: Toggle point 

R: Reset all data 

F: Set all data 

I: Invert all data 

H: home cursor 

1,2,3: Print data for each 
character 

SHFT + 1,2,3: Input data for 
each character 
D: Toggles in or out of 
drawing mode (Shown by a “D” 
at top of screen) 


Peter Frankenburg 
Howlong NSW 


PCG CHARACTER DESIGNER 


1 i) REM HHH HHERHEE HEHEHE EHH HHH HHH HHH HE 


2% REM ** PCG Character Designer ** 
fe REM ** by: Peter *rankenberg. ** 
4¢ REM ** Ph: (060) - 26 5356 ** 
59 REM HHH KKRHHEHEHEHH HEHEHE HHH HHHH HH 
69 REM 
P=:64528 : Poke Zot ie 
FOR X=P TO P+95: Read Y: Poke X,Y: Next X 
For X=X+1 to X+48: Poke X,@: Next X 
For X=X+1 to X+32: Read Y: Poke X,Y: Next X 
Goto 499 
Rem ** Square 
Data $,127,64,64,64,64,64,64 
Data 64,64,64,64,64,64,127,9 
Data $,254,2,2,2,2,2,2 
Data 2,2,2,2,2,2 5254, 
Rem ** Cross 
Data 255,129,129, 129, 129,129,129,255 
Data 255,129,129,129,129,129,129,255 
28M Data 255,129,129,129,129,129,129,255 
290 Data 255,129,129,129,129,129,129,255 
300 Rem ** Inverse Cross 
312 Data 255,254,254,254,254,254,254,128 
320 Data 128,254,254,254,254,254,254,255 
330 Data 255,127,127,127,127,127,127,1 
342 Data 1,127,127,127,127,127,127,255 
359 Rem ** Inverse Square 
36D Data 0,127 4127, 127,127 127,127, 127 
370 Data 127,127,127, 1279127 127,127 2 
38D Data $,254,254,254,254,254,254,254 
399 Data 254,254,254, soe | 254,254,6 
395 Data 128,64 32, 16,8 
499 Dim a(24,165, sas . 
50% Cls: Peg: For X=1 to 16: For Y=16 to 62 Step 2: Curs Y,X 
519 Print "AB";: Next Y: Next X 
520 Cal: R=1t Cures 12,16: Print "GHI"; 
55@ For X=1 to 8: Read B(X): Next X 
60% ag Ue If Ag$="" Then 6992 
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SOAS 


619 If AG$="L£": Gosub [-1,91 1999: If D=1: ag$=" " 
626 If AG$="J": Gosub [1, 35) 190: If D=1: Ag$=" " 
639 If AP~$=Chr (27): Gosub (-1,0) 1190: If D=1: Ag$=" " 
649 If aA@$=Chr(9): Gosub C1,17] 1190: If D=1: Ag$=" _" 


659 If AG$="_": Gosub 1299 

66% If Ag$="F": Gosub C1) 1369 

679 If AG$="H": Gosub 290%: R=1: C=1 

689 If AZ$="R": Gosub [P) 1394 

699 If APS>"9" And AZ$<"4": V=Int(Val(Ag$) )-1: Gosub CVI 1499 
790 If AG$>" " And AD$<"$": V=Asc(AP$)-32: Gosub CV) 1749 

719 If gent" Gosub 1869 

729 If AG$="D": Gosub 1994 

999 Gosub 2629: Goto 649 


995 Rem ** Move Cursor left & Right 
Var (X,Y): Gosub 2900: C=C+X: If C=Y¥: C=C-X 
Gosub 2026: Return 
Rem ** Move Cursor up & Down 
Var (X,Y): Gosub 290%: R=R+X: If R=Y: R=R-X 
Gosub 2926: Return 
Rem ** Toggle Point 
If A(C,R)=@: A(C,R)=1 Else Let A(C,R)=% 
Gosub 2926: Gosub 159%: Return 
Rem ** Fill with Inverse Squares 
Var (X): For R=1 to 16: For C=1 to 24: A(C,R)=X 
Gosub 2900: Next C: Next R: C=1: R=1: Gosub CXI 169%: Return 
Rem ** Print Data 
Var (W): Normal: For Y=1 to 16: V=@: Z=128 
For X=W*8+1 to W*8+8: If A(X,Y)=1 :V=V+Z 
Z=Zf2: Next X: Curs 1,Y¥: Print W+i ">" [14 Vo; 
Next Y: Return 
Rem ** Updates PCG Character 
If C)8 And C<i7: P=6464¢: a Else If C16: P=64656: 
X=C-16 Else Let P=64624: 
X=B(X): P=P+R-1: If A(C hod: Poke P,Peek(P)-X Else 
Poke P, Peek(P)+X 
Return 
Rem ** Update PCG after Fill or Reset 
Var (Y): P=64624: If Y=1: Y=255 
For X=P to P+47: Poke X,Y: Next X: Return 
Rem ** Input Data 
Var (W): Normal: P=64624+(W-1)#16: For V=1 to 16: R=V 
Curs 1,V: Print W "> ";: Curs 4,V:Input ™" X; 
For Ye! to 8: C=(W-1 )*8+ 
Z=(X And B(Y)): If Z=B(Y): A(C,R)=1 Else Let A(C »R) = 
Gosub 290%:Next Y:Poke P,X: P=P+1: Next V: Cal: Ral: 
Return 
Rem ** Invert Squares 
For R=1 to 16: For C=1 to 24 
If A(C,R)=1: A(C,R)=G Else Let A(C,R)=1 
Gosub 3006: Next C: Next R: Cel: R=! 
For X=64624 to 64671: Poke X,255-Peek(X): Next X: Return 
Rem ** Draw Mode 
Normal: If D=1: D=@: Curs 12: Print " "; Else Curs 12: 
Print "D"ss D=1 
Return 
Peg: Curs C*2+14,R: If A(C,R)=@: Print "AB"; Else 
Print "JK"; 
Normal: Return 
Peg: Curs C*2+14,R: If A(C,R)=G: Print "CD"; Else 
Print "EF"; 
293% Normal: Return 
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This is a simple “Snake“-line 
game in Lores graphics for one 
person. 

The object is to control a 
worm eating all the flashing 
frogs which appear on the 
screen. (Don’t ask how the 
worm eats frogs, it just does!) 

The only trouble is that if you 
crash into the wall, or yourself 
you are no longer alive. 

You get points for just staying 
around, but more points for eat- 
ing frogs. Eating frogs, how- 
ever, causes you to grow, mak- 


ESC: Up 

TAB: Down 
[: LEFT 
]: RIGHT 

At the beginning of the game, 
the program asks for speed. 
This is just a number from 0- 
255 giving the speed of the 
game. 

One line has been omitted, 
and should be added to enable 
the high score function. 

190 POKE 62475,0 : POKE 
62477,0 : DELETE 190 


ing the game more difficult. 
The control keys for the game 
Peter Frankenburg 
Howlong NSW 


00001 REM AXE KKKKKEREKEKERAKAKAEKE EERE 

00110 REM xxx w O R M axk 

00120 REM *** By: Peter Frankenberg *** 

00130 REM Xxx Ph: (060) - 26 5356 xkk 

00140 REM = KXREKXKKKKKER EERE ERK KK 

00150 REM 

00160 REM 

00170 DIM D(5000) 

00175 CLS:CURS 530:GOTO 500 

00180 CLS:LORES 

00200 PLOT 0,0 TO 0,47 TO 100,47 TO 100,0 TO 0,0 

00210 W103: X=20: Y=10: Z=10: AHO: B=1:F=1:E=11:N=1:S1=0: G=0: P=0 

00220 M=PEEK (62475) +1008PEEK (62477) 

00230 PLOT W,X TO Y,Z:FOR H=1 TO 11:D(H)=10:NEXT H 

00240 J=2:K=2:GOSUB 530 

00250 CURS 54:PRINT"W O R M":CURS 54, 2:PRINT"==28=2===" 

00260 E=E+1:A1$=KEY: N=-N: P=P+1 

00270 IF P>150:GOSUB 530 

00280 IF E>4999:CLS:CURS S20:PRINT"C ONGRATULATIONS !":GOTO 470 
00290 S1=S1+.03: IF N=-1:RESET J,K ELSE SET J,K 

00300 SPEED O:CURS 53,4:PRINT"SCORE: "INT(S1) 

00310 CURS 54,6:PRINT"HIGH":CURS 53, 7:PRINT"SCORE: "M:CURS 52,9: PRINT" GROWTH: "G" 
";:SPEED Q@:CURS 53,16:PRINT" "s:SPEED 0 

00312 CURS 52,11:PRINT"LENGTH: "E-F:CURS 52,13:PRINT"WORM: "W","X" "3:CURS 52,14:P 
RINT"FROG: mo "3 

00320 IF A1$=CHR(27): B=1:A=0 

00330 IF A1%=CHR(9) : B=-1:A=0 

00340 IF Algs="C(":A=-1:B=0 : 

00350 IF A1$="J]":A=1: B=0 

00360 D(E) =Bk10+A: WaW+A: X=X+B 

00370 IF W=J AND X=K:G=G+INT (RND&70)+30:GOSUB 530:S51=S1+20 

00380 IF PQINT(W, X) THEN 460 

00390 SET W,X:IF G>O?G=G-1:GOTO 450 

00400 F=F+1:RESET Y,Z 

00410 IF D(F)=10: Z=Z+1 

00420 IF D(F)=-10:Z=Z-1 

00430 IF D(F)=1:Y=Y+1 

00440 IF D(F)=-1:Y=Y-1 

00450 GOTO 260 

00460 SPEED 0O:CURS SS0:PRINT"C RASH !":PLAY 1,10 

00470 IF S1i>FLT(M):CURS S80:PRINT"*X*X* NEW HIGH SCORE k&a*e"3SPLAY 20,10 ELSE S00 
00480 M1$=STR(INT(S1)):FPOKE 62475, INT (VAL (M1 (;LEN(M1%)—-1))) 

00490 IF LEN(M1$) >3:POKE 62477, INT (VAL (M1$(3;1,LEN(M1$)-2))) ELSE POKE 62477,0 
00500 INPUT"Speed?"Z7$: IFZ7$=""THEN180 

00510 Q=INT(VAL(Z7$)): IF Q<0O OR Q2255 THEN S00 

00520 GOTO 180 


OO530 P=0:RESET Jk 
00540 J=INT (RND*90) +5: K=INT (RND*&40) +4: IF POINT(J,K) THEN 540 
00550 SET J,k:RETURN 
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SLOT MACHINE 


You are in the midst of a 
packed casino with a ‘one-arm 
bandit’ in front of you; its 
jackpot steadily mounting. You 
insert the coin, your last one, 
and pull back on the handle 
(you really hit the / key but that 
spoils the fun!) and watch the 
shapes revolve. You hit the 
jackpot! Beauty! Shall you quit 
while you're ahead or go on 
gambling at the risk of going 
broke! 

Some breath-taking sound ef- 
fects and interesting characters 
add to the fun of this program 
which can become quite addic- 


* If you want a greater chal- 
lenge then just increase the 
number of characters that ap- 
pear in the game by altering 
lines 370, 420, 470, 540 and so 
on. 

* You can also alter these 
lines to change the characters 
that appear by altering lines 
370, 420, 470, 540 and so on. 

* You can also alter these 
lines to change the characters 
that appear, if you find the ones 
I've chosen undesirable. To see 
the range of characters avail- 
able, punch in: FOR X=0 TO 
127:POKE 61440 + (X* 


tive. 
Some points to note: 


* The characters do not actu- 


2),X:NEXT X:END 


Anthony Lock 


ally revolve — they just appear 


to do so. 


MASTERMIND 


This game, written for the 
Microbee, is much the same as 
its namesake. This version you 
can play by yourself or against 
a friend. 

| will now issue a plea to any- 
one who can write a subroutine 
or program, in which the com- 
puter tries to guess the code, 
and send it ir to this magazine. 
I'm afraid the maths is a bit 
beyond me! (OK, Hackers the 
race is on. If no-one comes up 
with one Ill publish an algorithm 
in a couple of months. EM.) 

This program is very flexible 
for changing and converting to 
other computers. This is be- 
cause it is only from line 350 to 


bl= 3 uh=- @ 
bl= @ wh= ec 
bl= 6 whe 1 


line 900 that the most important 
information is processed. To 
convert therefore, is mainly a 
matter of changing variables 
and designing your screen lay- 
out (see the screen dump). 

| recommend that you invent 
P.C.G characters to replace the 
plain looking letters. If you are 
the owner of that rare creature, 
the ColourBee, the use of col- 
ours for the code pegs would 
make this game visually much 
better. The game uses about 
5K .... GOOD LUCK! 


Greg Alcock, 
Oak Park, Vic 


Mitcham VIC 


GBBi1S 
BBB2SB 
BBB3D 
BBBID 
GBS4ID 


@@10@ REM **kxk SLOT MACHINE xxx 

@8185 REM by Anthony William Lock 

@@11@ CLS:CURS 13.6:PRINT"How to Play slot machine...” 
@8120 CURS 16.7:PRINT"It costs 20c’a turn -" 

@013@ CURS 12,.8:PRINT"to insert coin, hit the ” key" 
@@14@ CURS 12,18:PRINT" To win you must match three" 
@@15@ CURS 12,.11:PRINT" obJects in a horizontal row” 
@016@ CURS 12,12:PRINT" To start, Press the S key" 
@@170 CURS 12,.13:PRINT" To end, Press the E key” 
@018@ R1IS=KEYS 

@019@ IF AlS="S" THEN 218 

88208 GOTO 188 

@8218 CLS 

@8220 Mi=2: J1=5 

@823@ CURS 17.1: UNDERLINE:PRINT"*X* SLOT MACHINE **x" 
@8248 CURS 28,3:PRINT"MONEY ~ $"iM1i "0" 

@8250 CURS 19.4:PRINT"JACKPOT ~ $"5J1; "8": NORMAL 
@G26@ CURS 13.9:PRINT"I AM READY TO ACCEPT COINS...” 
Q6278 BiS=KEYS 

@028@ IF Bis="“"THEN 318 

86298 IF BiS="E"THEN 978 

08388 GOTO 270 

@@31@ CLS:CURS 17.1:UNDERLINE:PRINT"*** SLOT MACHINE **x" 
@0320 IF M1<.2 THEN 9508 

@@33@ M1i=M1-.2: Jl=J1+.2 

08340 CURS 20,3:PRINT"MONEY - $"5M1i "0" 

@035@ CURS 19.4:PRINT"JACKPOT - $"j; J1; "6": NORMAL 
80368 R=@ 

@837@ R=INTCRNDX6 +5 : B= INTC RNDX6 D+5 : C=INTC RNDX¥6 +5 
@@388 POKE 61974,A:POKE 61978,B:POKE 61982.C 

G0398 R=R+1 

@0408 IF R=10 THEN 420 

88418 GOTO 378 

G@428 B=INT< RNDX6 +5 : C=INTC RNDX6 +5 


REME#XEMASTERMIND BY... HH 
REM*##% GREG ADCOCK *#* 
REME## 28/1/1989 +## 
REM##* FOR PUBLIC USE !##*# 
REM*¥#% FOR PUBLIC USE !¥%#* 


BSAISBSCLS 
SSL11SPOKE2Z29, 1 
BO1L2HGDIMU1 (4) :W3=8 


GBAIPSD 
GB14B 


DIMG(4) 
DIMA1(3) >: DIMU(3) 


BBAISBCGOTOI4S 
BB169CLS 


BB17D 
929189 
BGB1ID 
GBB2BHB 
GB21B 
BB22D 
BA23B 
BA24S 
GBB25B 
GBB26B 
BB27B 
GS289 
BB2ISB 
BBI3IBOD 
OB31B 
GB32B 
BBI3D 
BB34B 
BB35D 
BB36DB 
BB37BD 
BB38G 
BB3ID 
BAIDS 
GBI1G 
ASB42B 
BBI3B 
GB44B 
BS435G 
BB46R 
BB47B 
GB48S 


T1=9:31=9:K=9 

L=@:PLAYS, 2@:CLS 

LORES 

PLOT 38,45 TO 88,45 TO 88,9 TO39,9T039,45 
PLOT 38,9 T09,9 TO 9,45 TO 39,45 
PLOT 47,43 T064,43 

PLOT 47,42 T064,42 

PLOT 47,447064,44 
CURS46, 1: PRINT" B=BLUE" 
CURS46, 3: PRINT "G=GREEN” 

CURS46, 5:PRINT"P=PURPLE" 
CURS46, 7: PRINT "R=RED" 
CURS46, 9: PRINT "W=WHITE" 
CURS46, 11: PRINT" Y=YELLOW" 
CURS46, 12:PRINT"b1=CORRECT" 
CURS46, 13: PRINT"POSITION" 
CURS46,14:PRINT"“wh=CORRECT COLOR" 
CURS46,15:PRINT"WRONG POSITION" 
FORI=@TO3 
P=INT(RND#¥8) : IFP=@ORP=10RP=8THEN362 
IFP=2THENLETU (I) =82 
IFP=3THENLETU (1) =66 
IFP=4THENLETU(I) =71 
IFP=5STHENLETU (1) =87 
IFP=6THENLETU (I) #89 
IFP=7THENLETU (I) =8@ 
A1$(I)=CHR(U(I)) 

NEXTI 

T=49:S=15 

REM 

T=49:S=S-1 

CURS 3,16 


SGS496L=L+1: IFL=11THENISS 


BBIBS 
933518 
GBS2G 
BGAI3D 
GBBIID 
GBSSD 


FORI=@T04 
G(I)=@:U1$(1I)="" 

NEXTI 

FORI=1T04 

CURS 58+T,S 

KiS=KEY: IFK1$=""THENS5S@ 


BBSE6SPRINT KiB;5 


BB57G 


IFK1$="R"ORK1$="B"ORK1%="G"ORK1S$="W" ORK1S$="Y 


"ORK1S="P"THENSS@ ELSES49 


Y=YELLOW @G588 U1S(I)=K1s 
. ~y GG59G PLAY 12,2 

b 1 CORREC GG698 T=T+2 

POSITION @9619 NEXTI 

wh CORRECT COLOR @9628 C=9: B= 
BG63GFORI=BTO3 

WRONG POSITION @664G IFA1%(1) =U1%(1I+1) THENLETB=B+1:G(1+1)=341 
SB65SNEXTI 
28668 FORI=1T04 
@G@67G IFG(I)>1THEN 84g 


BGB68GIFG(1) 1 THEN 7290 


BB6ID 
BB7 GBS 


IFF1=1THEN729 
IF I=1THEN729 


106 


08438 
00448 
08458 
08468 
08478 
88482 
88498 
88508 
08518 
08520 
08542 
88550 
08568 
80578 
0858a 
88598 
08608 
00618 
08620 
00638 
08642 
88658 
08662 
08678 
08680 
08690 
00708 


POKE 61978.8:POKE 61982,C 

R=R+1 

IF R=2@ THEN 472 

GOTO 420 

C=INT¢ RNDX6 +5 

POKE 61982,C 

R=R+1 

IF R#35 THEN 520 

GOTO 470 

R=@:PLAY 8.4 

D= INTC RNDX6 )+5 : E= INTC RND¥6 +5 : F=INTC RND¥6 +5 
POKE 62038,D:POKE 62042,E:POKE 62046,F 
R=R+1 

IF R=1@ THEN 598 

GOTO 548 

E=INT¢ RNDX6 >+5 : F=INTC RNDX6 +5 

POKE 62042,E:POKE 62046,F 

R#R+1 

IF R28 THEN 648 

GOTO 598 

F= INTC RNDX6 +5 

POKE 62046,F 

R=R+1 

IF R35 THEN 698 

GOTO 648 

PLAY 0,4:R=Q 

G= INTC RNDX6 >+5 : H® INTC RND¥6 +5: I= INTC RNDX6 +5 


@@78@ IF R=20 THEN 882 

8790 GOTO 758 

QG8O@ I=INTCRND¥6 +5 

08818 POKE 62118.1 

08829 R=R+1 

Q0838 IF R=35 THEN 858 

08848 GOTO 822 

@@85@ PLAY @,8:IF A=B AND B=C AND A=C OR D=E AND E=F AND D=F OR G=H AND H=I AND 
G=I THEN 898 

@886@ IF A=B AND B=C AND A=C AND D=E AND E=F AND D=F OR A=B AND B=C AND A=C AND 
G=*H AND H=I AND G=I OR D=E AND E=F AND D=F AND G=H AND H=I AND G=I THEN 910 
@@870 IF A=B AND B=C AND A=C AND D=E AND E=F AND D=F AND G=H AND H=I AND G=I THE 
N 938 

88880 PLAY @.16:CLS:GOTO 238 

@@89@ CLS:CURS 28,9:UNDERLINE: PRINT" CONGRATULATIONS! !": NORMAL 

@8980 Mi=M1+J1:J1=5:GOTO 988 

@0918 CLS:CURS 1.9: UNDERLINE: PRINT"CONGRATULATIONS! YOU HAYE WON THE DOUBLE~-WJACK 
POT!!! ":NORMAL 

@8920 Mi=M1+J1#2:J1=5:GOTO 988 

@@938@ CLS:CURS 1.9:UNDERLINE:PRINT"CONGRATULATIONS! YOU HAVE WON THE TRIPLE-JACK 
POT!!! '": NORMAL 


@@71@ POKE 62102,.G:POKE 62106,H:POKE 62112.1 00948 Mi=M1+J1¥3:Ji=5:GOTO 988 

08720 R*R+1 @@958 CLS: CURS 19,9:UNDERLINE: PRINT" ‘(OU ARE NOW BROKE! ": NORMAL 

Q073@ IF R=1@ THEN 752 08966 FOR 2=4097 TO 418@:L=USR‘ 1508@,2): NEXT Z:END 

08748 GOTO 728 - 08978 CLS:CURS 16,.9:UNDERLINE: PRINT" YOU HAVE FINISHED WITH $"511:"@ ":NORMAL EH 
@0758 H=INT( RND¥6 >+5: [=INTC RNDX6 +5 D 

Q8768 POKE 62106,.H:POKE 62119.1 @098@ FOR X=4095 TO 3847 STEP -1:L=USR¢ 1508@.%):NEXT * 

88778 R=R+1 @8998 PLAY @.4:CLS:GOTO 230 

99719 IFA1$(9) =U1$(1I) THENLETC=C+1:F1=1:GOTOS4g 91329 PLAY 9,19 


B9B72B IFF2=1THEN769 
OBB7SBIFG(2) 1 THEN 769 
98749 IFI=2THEN769 
9B759 IFA1S$(1) =U1$(1) THENLETC=C+1:F2=1:GOTO849 G13698 CURS19,3:PRINTZ4%3" SCORE IS “3N3$ 
BO769IFF3=1 THENSAD 
983778 IFI=3THEN8SD 
93789 IFG(3) >1THENSSS 
99799 IFA1S$(2) =U1S$(1I) THENLETC=C+1:F3=1: GOTOS49 91499 GOTO189 
BOSSIIFF4=1 THENS49 
99819 IFG(4) >1 THEN84S9 
98829 IFI=4 THENS49 


BI8I3B 


998499 NEXTI 

99839 Fi=#O8: F229: F3=9:F4=9 

99869 IFB=4THENGOSUB9IS9 

99878 CURSS,S+t1i:PRINT“b1="3$B5;" wh="5C 
9B8SS B=g:C=9 

@B898 GOTO479 


BBIBOS 


»1SPRINTA1®(1I) 5 :NEXTI 
9BI1ID IFW3=#1:2W3=2: GOTO1279 
BBI2H IFW3#2: W321: GOTO1349 
B9B93B GOTO1419 

99949 FORI=1TO16 

BBISSB PRINTCA6S 191) 

89969 NEXTI 


99978 CURS 22,8:PRINT" MAS TER MIND 


B9BI9BD PLAY 163165295 23383 283 23,8 
BB999ID PLAY 8,16 
91999 CLS 


G1919 


91929 INPUT" (Y/N) "S3S 

91939 IFS3$="Y"ORSIS="y" THENZ9IO 
91949 IFS3$="n"ORSSS="N" THENIB69 
91938 GOTO1919 


91969 


91979 INPUTGS 

91988 IF GS#1 THENI8S9 
91998 IFGS#2 THEN1119 
91188 GOTO1969 


911198 CLS: CURS4,4: INPUT"PRINT THE NAME OF PLAYER O 
NE... 
@1129 CURS4,5: INPUT"PRINT THE NAME 


"Z3S 


- "2498 


G1138 CURS4,6:PRINT"HOW MANY GAMES DO YOU EACH WIS 


H TO PLAY IN THIS CONTEST "3 
91148 INPUTV 

91158 IFV<1THEN1132 

1168 W3=1 

91178 GOTO1729 

91188 PLAYS, 28: PRINT\\ 
91198 IFN<MTHEN1229 


CURS4,3:PRINT"DO YOU WISH INSTRUCTIONS ?"3 


CLS: CURS4,4:PRINT"DO YOU WANT TO PLAY BY YOU 
RSELF('1’) ,OR AGAINST ANOTHER °\"PERSON('2’) ? “$ 


OF PLAYER TWO.. 


91338 GOTO189 
G1349 K=K+1:N#*L+N:PLAYS,19:CLS 
B1358 CURS19,1:PRINTZ3%3" SCORE IS "“5M3 


G137HB IFK*2#VTHEN1189 
91389 PRINT\"IT IS NOW YOUR TURN , "323% 
91399 PLAY 9,19 


91918 PLAYG, 6: CLS: TisTi+¢1i:JLz=Ji+FLT(L) 
91429 PRINT\"YOUR SCORE THAT TURN WAS "“$L 
914398 PRINT\"YOUR AVERAGE SO FAR IS “3sJ1i/T1 


IFA1$(3) sU1$(1I) THENLETC=C+1:F4=1:GOTOS49 91449 IFFLT(L) >Ji/TI:PRINT" YOU HAVE SCORED WORSE T 


HAN YOUR ANVERAGE!!" 
G1459 IFFLT(L)<Ji/Tiz:PRINT"YOU ARE IMPROVING!!!" 
91469 PLAYS, 5a 

@1478 CLS:PRINT"DO YOU WISH TO PLAY AGAIN ?(Y/N) 
91462 INPUT S2% 

21499 IFS2$="Y"“ORS2$="y"THENIS® 


Q29:FORI#9TO3:G20+2:CURS 24+@,2:PLAY I+1,359 91599 GOTO1919 


Naaar UNDERLINE: CLS: CURS26, 3: PRINT" INSTRUCTIONS": N 
RMAL 

82818 PRINT" THE COMPUTER SECRETLY PUTS 4 COLOR 
S BEHIND THE SCREEN IN" 

92829 PRINT"ANY ORDER IT WISHES. IT HAS 6 TO SELEC 
T FROM (R=RED, B= BLUE" \"“G=GREEN, W=WHITE,P#PURPLE, Y= 


" Seabees ee ONO. g5 CAN DOUBLE COLORS" 

UP.YOU MUST TRY TO MATCH THE COLOURS I 

N THE SAME ORDER AS THE"\"COMPUTER HAS HIDDEN THEM 

- CLUES ARE GIVEN AT THE END OF EACH" 

82949 PRINT"“GUESS(MENTIONED LATER) AND YOU ONLY GE 

T TEN CHANCES TO BRAKE"\"THE CODE. WHEN ALL 4 ARE 

THE CORRECT COLOURS AND IN THE RIGHT" 

92959 PRINT“POSITINS YOU HAVE BROKEN THE COMPUTERS 
HIDDEN CODE, AND IT "\"“WILL REVEAL IT FROM BEHIND 
THE SCREEN. " 

82968 CURS 39,16:PRINT"HIT ANY KEY TO CONTINUE. "; 

B2979RiIS=KEY: IFRIS="" THEN2ZB79 

B92S75CLS 

92989 UNDERLINE: CURS29,3: PRINT" CLUES ": NORMAL 

@2999 PRINT\" AFTER EACH TURN, IN THE LEFT HAND CQ 

LUMN YOU WILL SEE THESE"\"SYMBOLS, ‘bl’ AND ‘wh’,TH 

ESE ARE THE IMPORTANT CLUES" 

921998 PRINT\"bl:- IT SHOWS THE NUMBER OF CORRECT C 

OLOURS IN THE SAME "\"POSITION AS THE HIDDEN ONES" 

9821198 PRINT\"wh:- REPRESENTS THE NUMBER OF COLORS 

THAT ARE CORRECT BUT IN"\"THE WRONG POSITION” 

82126 PRINT\"THE PROBLEM IS DETERMINING WHAT GOES 

WHERE BY LOOKING BACK"\"AT THE CLUES FROM ALL YOUR 
TURNS" 

82138 CURS3G,16:PRINT"HIT ANY KEY TO CONTINUE"; 

921948 RIS=KEY: IFR1IS=""THEN21499 

82158 CLS: CURS27, 1: UNDERLINE: PRINT"EXAMPLE" : NORMAL 

921628 PRINT "PLAYERS GUESS - RP GB" 


@1298 PRINTZ3%}" HAS WON! !'! * 

81218 GOTO12328 @2179 PRINT\"THE ACTUAL CODE(HIDDEN AT THIS STAGE) 
91229 PRINTZ4®%5" HAS WON! ! ! * a. : RGBw* 04 
91239 PRINT\\\"DO YOU WISH TO PLAY AGAIN ?(Y/N) "$3 82188 PRINT" THE COMPUTER GIVES THESE CLUES "\ 


21248 INPUTS1$ 

G1258 IFSi1S="Y"ORS1S$="y" THENRUN 
912698 END 

G1278 KeK+1:M=L+M: PLAYS, 19:CLS 


81288 CURS19,1:PRINTZ3®§" SCORE IS "“3M3 
91299 CURS19,3:PRINTZ4%3"° SCORE IS "“35N3 


G13989 IFK=2¥#VTHEN1189 


91319 PRINT\"IT IS NOW YOUR TURN , “524% 


bl=1 wh=2 " 

82198 PRINT" THIS MEANS THE PLAYER HAS 1 CORRECT i 
-@ 'R’"\"THE PLAYER ALSO HAS TWQ CORRECT BUT IN TH 
E WRONG POSITIONS" 

82299 PRINT"i.e ‘G’ AND ‘B’"*\"THE LETTER ‘P’ IS NO 
T THE RIGHT COLOUR AT ALL" 

92219 PRINT\\"GOOD LUCK” 

@2228 CURS39,16:PRINT“HIT ANY KEY TO CONTINUE"; 
G82238 RAS=KEY: IFR1S=""THEN2239 

82298 GOTO 1969 
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ADDR 


00c2 
8006 
so0oc 
O0AO 
ASEY 


7D00 


7D00 
7DO3 
7D06 
7009 
7DOC 


7 DOF 
7D1i2 
7D13 
7D15 
ADI? 
7DI9 
7D1iB 
7DIC 


7D1iD 
7D20 
7D23 
7D25 
7026 


7D27 
7D2A 
7D2B 
7D2D 
7D30 
7D32 
7D34 
7D36 
7D38 
JD3A 
7D3C 
7D3E 
7D40 
7D41 
7D42 
7D43 
7D44 
7D45 
7D46 
7D48 
7D4A 
7D4D 
7D4E 
7D4F 
7DS2 
7085 
7D358 


KEYWORDS 


CODE 


210F7D 
22C200 
21FE7C 
22A000 
C32180 


CDE9YAS 
co 
FEOA 
2806 
FEO9 
2856 
BF 

C9 


21277D 
22C200 
SEFF 
B?7 

c9 


CDE9AS 
co 
FEOA 
CAC77D 
FE60 
3802 
D620 
FE41 
382D 
FESB 
3029 
D641 
17 

17 

17 

17 

cs 

4F 
0600 
CB10 
Z1197E 
09 

C1 
226F7D 
215A7D 
22C200 
18C9 


LINE 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
003510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
006350 
00640 
00650 
00660 
00670 


LABEL MNEM 


This program allows words, 
commands or sequences of up 
to 15 characters in length to be _ end. 
typed repetitively with just two 
keystrokes. Twenty six words 
can be stored by typing TAB 
then the letter to store it under 
(ie. A to Z) followed by the char- 


OPERAND 


acters to be remembered and fi- 
nally TAB again to mark the 


To list all the words stored, 
type LINE FEED twice. (see 
Table 1.) To recall a word, type 
LINE FEED then the letter it 
was stored under. This will 


I REKHEEEE SINLE KEYWORD ENTRY 44-24% 


VECTOR 
GETKEY 
DISPLY 
MEMTOP 
NORMAL 


INIT 


DRIVER 


LINEFD 


NOKEY 


KEYED 


NOLW1 


EQU 
EQU 
EQU 
EQU 
EQU 


ORG 


LD 
LD 
LD 
LD 
JP 


CALL 
RET 
CP 
JR 
CP 
JR 
CP 
RET 


LD 
LD 
LD 
OR 
RET 


CALL 
RET 
CP 
JP 
CP 
JR 
SUB 
CP 
JR 
CP 
JR 
SUB 
RLA 
RLA 
RLA 
RLA 
PUSH 
LD 
LD 
RL 
LD 
ADD 
POP 
LD 
LD 
LD 
JR 


00C 2H 
8006H 
SOO0OCH 
OOAOH 
OASE9SH 


7DOOH 


HL, DRIVER 
(VECTOR) , HL 
HL, INIT-2 
(MEMTOP) , HL 
8021H 


NORMAL 
NZ 

OAH 
Z,LINEFD 
O9H 

Z, TAB 

A 


HL, KEYED 
(VECTOR) , HL 
A, OFFH 

A 


NORMAL 
NZ 

OAH 
Z,LIST 
60H 
C,NOLW1! 
20H 

ae 

C, ABORT 
"2? +1 
NC, ABORT 
41H 


HL, DATA 
HL, BC 

BC 
(WORD) , HL 
HL, BOUNCE 
(VECTOR), HL 
NOKEY 


Sinput vector 

jwait for a key into A 
;display char in B 
stop of memory pointer 
;normal input driver 


s;Store new input vector 
;HL=>top of usable mem. 
;Reset memory size 
;Return to basic 


$Get a char from keyboard 
sReturn if none 
s;Check for a LINE FEED 


;Check for a TAB 


;Set Z flag 
sReturn with char in A 


;Reset input vector to 
H intercept next key 


;Reset Z flag 
;Return as if no key pressed 


3;Get char from keyboard 
;Return if none 
3Check for listing 


3Go if UPPER CASE 
*>Convert to UPPER CASE 


3Go if char not used 


$Go if char not used 
;A=code for word 
;Multiply 

; code by 

3 16. 


3Save BC 
5C=LSB of pointer 


3B=MSB of pointer 

JHL=>first word in table 
$HL=>word to bounce back 
s;Restore BC 

s;Store word pointer 

s;Reset input vector 

3 to bounce word back. 
jReturn as if no key pressed 


greatly increase the speed of 
in a program under 
BASIC version 5.10. 

Listing 1 shows the source 
code for a 32K Microbee. It can 
be changed for a 16K Microbee 
by replacing line 180 with ORG 
3DOOH and reassembling. The 


typing 


ADDR 


CODE 


2A6F7D 
7E 

23 
226F7D 
B7 
2802 
BF 

c9 


210F7D 
22C200 
18B4 


0000 


cD0680 
FE60 
3802 
D620 
FE41 
38E9 
FESB 
30ES 
cs 

47 
cpocso 
D641 
17 

17 

17 

17 

4F 
0600 
CB1O 
21197E 
09 
O0E00 
063D 
cpoceso 
0622 
cDocso 
cD0é680 
FEO9 
2812 
7? 

23 
FE20 
3002 
3ESF 
47 
cDocso 
oc 


LINE 


LABEL 


BOUNCE 


ABORT 


WORD 


TAB 


NOLW2 


MORE 


CONTO 


EXIT 


program is entered from Listing 
2 which can be used for 16K or 
32K Microbees. Once run this 
program can be cleared by typ- 
ing NEW. The keyword will re- 
main enabled even if the Micro- 
bee is warm reset. 
David Morrison 
East Ringwood VIC 


MNEM OPERAND 


LD HL, (WORD) 
LD A, (HL) 
INC HL 

LD (WORD) , HL 
OR A 

IR Z, ABORT 
CP A 

RET 

LD HL, DRIVER 
LD (VECTOR), HL 
IR NOKEY 
DEFW 0000 
CALL GETKEY 
cP 60H 

IR C,NOLW2 
SUB 20H 

cP 7A’ 

IR C, ABORT 
cP "Z' +1 

IR NC, ABORT 
PUSH BC 

LD B,A 

CALL DISPLY 
SUB 41H 

RLA 

RLA 

RLA 

RLA 

LD C,A 

LD B,O 

RL B 

LD HL,DATA 
ADD HL, BC 

LD c,0 

LD B,’=’ 
CALL DISPLY 
LD 5,°*" 
CALL DISPLY 
CALL GETKEY 
cP 09 

IR Z,EXIT 
LD (HL) ,A 
INC HL 

cP 32 

IR NC, CONTO 
LD A,95 

LD B,A 

CALL DISPLY 
INC Cc 

LD A,c 

cP 15. 

JR NZ, MORE 
LD (HL) ,00 
LD By*** 


SHL=>word to bounce 
sA=char to send back 
SHL=>next char in - word 
sRestore word pointer 


3Go if end of word 


$Set Z flag 


sReturn with char in A 


sReset input vector 
5 for normal operation 


sReturn as if no 
key pressed 


s;Wait for a key 


;Go if UPPER CASE 
sConvert to UPPER CASE 


$Go if char not used 


3Go if char not used 


$Save BC 


;Show char to be modified 


s;A=code for word 


s;Mupltiply 
5 code by 
; 16. 


3C=LSB of pointer 


$B=MSB of pointer 
s;HL=>first word in table 
$HL=>word to modify 
$Set word length to zero 


;Show ready to modify 


3 the word sign. 


;Wait for key 
$Check for TAB 


$Go if end of word 
sStore char into word 


$HL=>next char 
s$Check for a control char 
3Go if not a control char 
$_ Signifies control char 


in word 


'Show char of word 
s$Increment word length 


;Check for max length 
$Get next char in word 
j;Mark end of word 


[> 


109 


V 


KEYWORDS *~ 


7 DBF 
7DC2 
70C3 
7DCS 
7DCS 


7DC7 
7Dc8 
7DCA 
2DCD 
7DCF 
7DD2 
7DD5 
7DDS 
7DD9 
7DDC 
7DDE 
7DE1 
7DE3 
7DES6 
7DES 
FDEP 
7DEA 
JDEB 
7DED 
7DEF 
7DF 1 
7DF3 
7DF4 
7DF7 
7DFS 
7DFA 
7DFB 
JDFD 
7DFF 
FEO2 
FEOS 
7EOS 
FEO6 
FEO? 
7E08 
7EOB 
FEOC 
ZEOD 
JEOE 
7E10 
FELL 
FE14 
FE17 


O1A0 
7FB9 


0000 


CODE 


cpocso 
Lon | 
SEOS 
BF 

Cc? 


D9 
060A 
CDOCS8O 
060D 
CDOC8O 
111A41 
Z1197E 
42 
CDOC8O 
O6SA 
CcDOC8O 
0620 
CDOC8O 
OE1D 
ES 

7E 

B7 
2810 
FE2O 
3002 
SESF 
47 
CDOC8O 
oD 
280B 
23 
18SEC 
0620 
cpocso 
oD 
20F8 
14 

El 

cS 
011000 
o9 

Cl 

iD 
20C8 
D9 
210F7D 
22C200 
18AA 


LINE 


01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
013560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01650 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01600 


00000 Total errors 


LABEL 


BREAK 


LIST 


LOOPO 


LOOP 1 


OK 


NEXTWD 


NX TWD 


DATA 
HIMEM 


HIMEM 7FB9 
LOOP1i 7DE9 
EXIT 7DBB 
WORD 7O6F 
LIST 7DC? 
LINEFD 7D1D 
MEMTOP OOAO 


NXTWD 
LOOPO 
MORE 
DATA 
NOKEY 
DRIVER 
DISPLY 


7EOS 
7DD8S 
7DA2 
7EL9 
7D23 
7DOF 
8s00c 


MNEM 


CALL 
POP 
RET 
EXX 
CALL 
CALL 
LD 
CALL 
CALL 
CALL 


PUSH 


‘LD 


DEC 
INC 
CALL 
DEC 
INC 
POP 
PUSH 
ADD 
POP 
DEC 


EXX 


CALL 


OPERAND 


DISPLY 


B, OAH 
DISPLY 
B,ODH 
DISPLY 
DE,411AH 
HL, DATA 
B,D 
DISPLY 
B,’:? 
DISPLY 
B,’ ’ 
DISPLY 
C,29 

HL 

A, (HL) 

A 
Z,NEXTWD 
32 

NC, OK 
A,95 

B,A 
DISPLY 

C 
Z,NXTWD 
HL 

LOOP 1 
B,’ ’ 
DISPLY 

Cc 

NZ, NEXTWD 


NZ,LOOPO 
HL, DRIVER 


(VECTOR) , HL 
BREAK 


1A0H 


sShow end of word 
sRestore BC 


3Set Z flag 
;Return as if BREAK pressed 
3;Save registers 

3;B=LINE FEED 


3 B=RE TURN 


$D=ascii,E=code of word 
$HL*=>first word in table 


3Show ascii char for word 


3;C=spacing counter 
3Save HL 
3Get char from word 


3Go if end of word 

s$Check for a control char 
3Go if not a control char 
;_ Signifies control char 


s$Show char of word 
;Decrement spacing counter 
3;Go if no more space 
;HL=>Next char in word 
;Show rest of word 


s;Line up with spaces 


s;Next ascii for word 
;Restore HL 


;Save BC 


3HL=>next word 

;Restore BC 

3Next code for word 

$Go until no more words 
sRestore registers 

;Restore input driver 

3 for normal operation 
3;Return as if BREAK pressed 


OK 
BREAK? 
NOLW2 
ABORT 
KEYED 
INIT 
GETKEY 


7DFS 
70C3 
7D7A 
7D67 
7027 
7D00 


8006 _ 


NEXTWD 7DFD 
CONTO 7DB1 
BOUNCE 7DSA 
NOL WI 7DS6 
TAB 7O71 
NORMAL ASE? 
VECTOR oOO0OC2 


Table il. 


Words stored under keyboard characters 


A: AUTO B: GOSUB 
Cc: CURS D: EDIT_ 
E: EDIT F: FOR 

G: GOTO H: HIRES 
It INPUT J: EDASM_ 
K: PEEK ( Ls: LIST_ 
M: RENUM N: NORMAL 
O: POKE Ps: PRINT 
Q: PLOT R: RUN_ 
S: SET ( T: THEN 
Us: UNDERLINE Vs RETURN 
W: RESET ( X: NEXT 
Y: PLAY Z: ZONE 
Listing 2. 


00100 POKE 


32000, 128 


00110 IF PEEK(32000)=#128 THEN LET Z=32000 ELSE LET Z=15616 
00120 PRINT"Single keyword entry." 

00130 PRINT"Storing program into "$ 

00140 IF Z=32000 THEN PRINT"S32K"3 ELSE PRINT"16K"$ 

00150 PRINT" memory." 

00160 FOR A=Z TO Z+687:READ B:POKE A,B:NEXT A 

00170 IF Z=32000 THEN 180 


00171 POKE 
00172 POKE 
00173 POKE 
00179 POKE 


Z+2,61:POKE Z+8,60:POKE Z+31,61:POKE Z+47,61 
Z+76,62!:POKE Z+81,61:POKE Z+84,61:POKE Z+92,61 
Z+97,61:POKE Z+105,61:POKE Z+148,62:POKE Z+215,62 
Z+275,61 


00180 X=USR(Z) 


10010 DATA 
10020 DATA 
10030 DATA 
10040 DATA 
10050 DATA 
10060 DATA 
10070 DATA 
10080 DATA 
10090 DATA 
10100 DATA 
10110 DATA 
10120 DATA 
10130 DATA 
10140 DATA 
10150 DATA 
10160 DATA 
10170 DATA 
10180 DATA 
10190 DATA 
10200 DATA 
10210 DATA 
10220 DATA 
10230 DATA 
10240 DATA 
10250 DATA 
10260 DATA 
10270 DATA 
10280 DATA 
10290 DATA 
10300 DATA 
10310 DATA 
10320 DATA 
10330 DATA 
10340 DATA 


10350 DATA 


10360 DATA 
10370 DATA 
10380 DATA 


33,15,125, 34, 194, 0, 33, 254, 124, 34, 160,0, 195, 33,128 
205, 233, 163, 192, 254, 10, 40, 6, 254, 9,40, 86, 191, 201,33 
39, 125,34, 194, 0, 62, 255, 183, 201, 205, 233, 163, 192, 254 
10, 202, 199, 125, 254, 96, 56, 2, 214, 32, 254, 65, 56,45, 254 
91,48, 41, 214,65, 23, 23, 23, 23, 197, 79, 6,0, 203,16, 33 
25,126,9,193, 34,111,125, 33,90, 125, 34, 194, 0, 24, 201 
42,111,125,126, 35, 34,111,125, 183,40, 2,191, 201,33 
15, 125,34, 194, 0, 24, 180, 99, 127, 205, 6, 128, 254, 96, 56 
2,214, 32, 254, 65, 56, 233, 254, 91, 48, 229, 197, 71, 205, 12 
128, 214, 65, 23, 23, 23, 23, 79, 6,0, 203, 16, 33, 25, 126,9 
14,0,6,61, 205, 12,128, 6, 34, 205, 12, 128, 205, 6, 128, 254 
9,40,18,119,35, 254, 32,48, 2,62,95, 71, 205, 12,128,12 


121, 254, 15,32, 231,54, 0, 6, 34, 205, 12, 128, 193,62,3,191 


201,217, 6,10, 205, 12, 128, 6,13, 205,12, 128,17, 26,65 
33, 25,126, 66, 205, 12, 128, 6,58, 205, 12, 128, 6, 32, 205 
12,128,14, 29,229, 126, 183,40, 16, 254, 32, 48, 2, 62,95 
71,205,12,128,13,40,11,35, 24, 236, 6, 32, 205, 12,128 
13,32, 248, 20,225, 197,1,16,0,9,193, 29, 32, 200, 217, 33 
15,125, 34,194,0, 24,170, 65,85, 84, 79,0,0,0,0,0,0,0 
0,0,0,0,0,71, 79,83, 85, 66, 32,0,0,0,0,0,0,0,0,0,0, 67 
85,82,83,32,0,0,0,0,0,0,0,0,0,0,0, 69, 68, 73, 84,13 
0,0,0,0,0,0,0,0,0,0,0, 69, 68, 73, 84, 32,0,0,0,0,0,0 
0,0,0,0,0, 70, 79, 82, 32,0,0,0,0,0,0,0,0,0,0,0,0,71 
79,84, 79,32,0,0,0,0,0,0,0,0,0, 0,0, 72, 73, 82, 69,83 
0,0,0,0,0,0,0,0,0,0,0, 73, 78, 80, 85, 84,0,0,0,0,0,0 
0,0,0,0,0,69, 68, 65,83, 77, 13,0,0,0,0,0,0,0,0,0,0,80 
69,69, 75,40,0,0,0,0,0,0,0,0,0,0, 0, 76, 73, 83, 84,13 
0,0,0,0,0,0,0,0,0,0,0, 82, 69, 78, 85, 77, 32,0,0,0,0,0 
0,0,0,0,0, 78, 79, 82, 77, 65, 76, 0,0,0,0,0,0,0,0,0,0, 80 
79,75, 69, 32,0,0,0,0,0,0,0,0,0, 0,0, 80, 82, 73, 78, 84 
32,0,0,0,0,0,0,0,0,0, 0,80, 76, 79, 84, 32,0,0,0,0,0,0 
0,0,0,0,0,82, 85, 78,13,0,0,0,0,0,0,0,0,0,0,0,0,83 
69,84,40,0,0,0,0,0,0,0,0,0,0,0,0, 32, 84, 72, 69, 78, 32 
Saag dco Aud nt get ahd Go ge 
0,0,0,0,0,0, 82, 69, 84, 85, 82, 78,0,0,0,0,0,0,0,0,0,0 
82,69,83,69,84,40,0,0,0,0,0,0,0,0,0, 0, 78, 69, 88, 84 
32,0,0,0,0,0,0,0,0,0,0, 0, 80, 76, 65, 89, 32,0,0,0,0,0 
0,0,0,0,0,0,90, 79, 78, 69, 32,0,0 
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GALACTIC FIGHTER 


Well, here’s a game for the 
Microbee and yes, it is another 
variation on the old Star Trek 
game. The only difference is 
that | wrote it. 
Instructions 

Just run the program. Once 
out of the menu, the game will 
begin. The commands are T for 
thrust, S for shields, F for tor- 
pedoes, D for display, C for 
computer, W for game save and 
X for self-destruct. 

In the Thrust mode there are 
two choices, T for controlled 
thrust and N for hyperspace. 

In the shield routine, T for 
transfer and S for shield status 
change. 

Within shield change, F is for- 
ward, R is rear, P is port, S is 
starboard, U is shield up and D 
is shield down. 

Cursor control for Computer 
direction/distance calculator 1 is 


Soa ae eT ae aaa 
see Ley Lae Tae LAS 


LOSrl RESTORE LOOCFOR A=Sa5 TO 


M=INTCRNDALOO FL OVS TN TO RANT ALOO Fb CAS bEAOSC YC TE 
Lo dtALB+AQ SC rXFl DCGOSL YOHAC ERE TURN 


W=up, Z=down, A=left and 
S=right. A RETURN will exit 
cursor control and print co-ordi- 
nates of cursor position, direc- 
tion of cursor from Viper and 
the distance. Another RETURN 
is then awaited before the com- 
mand mode is entered. 

There you have it. Any mis- 
takes made will be prompted by 
an error message. It may be 
useful to place a CTRL G char- 
acter at the end of every error 
message when typing the pro- 
gram in. This will get the 
player's attention if an error is 
made. 

| have noticed that the energy 
for the Viper is usually insuffi- 
cient. Try replacing A3 = RND* 
FLT(E)*250 + 20000 in line 350 
by A#=RND*FLT(E)* 400+ 
20000. Have fun! 

Jon Barnett 
Northmead NSW 


S4)eREAT RIPOKE As HINEXT AFORE 


AQkC aXe heb" THEN 130 ELSE LET AQS=A2%C 519 X- 


00140 CLSOSCURS lett FGR C=i TO LSSRPRINT CAS LA5d NEXT CoPCG US Bti2sFOR C=B+10 TO BK STEP-LECURS fy 0-C 
SALE=AOR COIPRINT ALSO OAS ATQ0 NEXT CONQRMAL 


OO1S0 CURS SOs SPRINT’ Canca tian "SOSsCURS JOv4 PRINT" Co-ordinates "ET4 XT" e"C14 YUICURS 30 
yOOPRINT" Ener se "CFG. 1 AS ISCURS A0sGcPRINT"Celone Left. "Lis ES 


00160 CURS SOe7¢RCGIPRINT’ Shieldst” +s SNORMALSFRINT SPCC OLFS.1 RSDSCURS S0s& SPRINT Forward” SFCL 10 )A4 
PL OVCURS JOsPSFRINT Rear” SFCL LS A4EC LOSCURS SOvLOCPEINT Starhoara" SPCCR) AS45072) 

00170 CURS SOsLLSPRINT"Fort"” SECC 13 A468 3) SRETURN 

OO180 CURS SOs 4StFRINT Insufficient enersy avelleble."ICURS JOclStPRINT"Returning to Command mode.”": 
FOR C=. TO SOOUNEXT C&EGOTO 379 

NO190 DATA 24924 y2hy 2oo lay las Lg Ley IO 2a p21 eG OID 21 21D PS OO 249 HO 91269 Lb oa yy 2559 OSI 
UCha mauled MOCKY Matec ROr ROE Ler eer een Sr RORRte Ace PALer Me macd re PACE Re ROE EOE LOE ROE DOr AOL ein DOr Ren Sik Ler een ser cen Rene) 

00200 TATA 990199090 90909 4609601460 960750760 9507 Hh 160 60 SD bO COD OeDrOvOrL ber lbrldylb91691694909108916 
y1699 

OO2Z10 INFOS OQUTFOS INVERSE S NORMALS RESTORE 190:A=640163FGR A=A TO ATISSREAL RSPOKE Avy BSNEXT A 

00220 TATA 629 3292 62rd del 7 90s 2459 Say G59 2409227 ed 219 09257 91769 F259 15 917 9 b4 909 259 2097 19529 2409 3356 
SIL40 14 ll S210 917G4s00Gr2h 2299 LG Solos 2522255 259139 3292449201 

00230 TATA 33909245917 9659 2400 b2edl ye ZL Sed yh O9 237917692099 2299 33 hh Oy ey 2a Sy 2175292595201 
00240 RESTORE 220¢A=S20°FOR A=A TO AF75°3 READ BSFOKE Ay BSNEXT A 

00250 CLSSCURS 231°3PRINT CAL8 SS INTARC 23)"#GALACTIC FIGHTERS" \TARC 23)C0A18 35) 

00260 Al$=" KXXKFrogram by J.-L. Karnett KXKXFress any Key to contin 


ue "SSFEED 10 

00270 FOR A=1 TO 1098CURS 23973PRINT AlS( FAVAF17 SIF KEY="" THEN NEXT ASGOTO 270 ELSE NEXTKA 280 

00280 CURS 2357°FRINT"XkBY J.L.Barnettxx"” 

00290 Al¢=" 1. New Game 2. Old Game 3. Saved Game "SCURS 23913SP 

RINT"OFtions” 

00300 SFEEL 2O3FOR A=i TO 7SSCURS 30,133F RINT A1L$( FAV At9 EAQS=KEYSIF AQS="" THEN NEXT A 3COTO 300 EL 

SE NEXTXA 310 

00310 SFEED OS IF AZS$="1" THEN CLEARS CURS SO,s13SFRINT"New Game "sGOTO 320 ELSE IF A2$="2" ANT Z=1 T 

HEN CURS 3Oe133FRINT"Ola Game "SCOTO 370 ELSE IF A2$="3" THEN 1530 ELSE 300 

00320 STRS( 11000 )SE=INTC RNDK20 04302 S=INTC RNDKSO F403 01M TOSyd de UCEs 1 )sA0C 100 x A403) 

00330 Z=L°SPRMT( 3S SFOR A=1 TO 1003A08( A=" $$94545$$$5545555655$55S$5554555559$545555555 S$ S$S$55S$S$9555$59455959955 

SSESSESSPSSSESSESSSFSISSSSUSSSESKLSESSHHHS SESS” SNEXT A 

00340 ALS$=CHR( 24)2F OR A=1 TO ESGOSUR L13Z03NEXT AcALS="8"3FOR A=1 TO S3GOSUBR 1L303NEXT AsALS="!" SCOSUB 
130 

OO350 AZ=RNOKFL TCE k2504700002 R3=S500 3 AR=AS-SOOLFOR A=0 TO JiA4450 A "Town" SNEXT & 

00350 FNO=4¥, 017453829 

00370 SO$=" GREEN" SA=X-10°H=Y-SSTF Ast THEN LET A=. ELSE IF 8:80 THEN LET A=80 

O0380 TF kel THEN LET R=1 ELSE IF B:990 THEN LET R=90 

00390 APS=CHRO A490°F OR [lk TO RELOSALS=ADNK TH) SAL S=A1S( pAVA+20 SFOR C=1 TO 20S F=SEARCHCALS$9AL$9C CIF F 

=Q THEN NEXT#C 440 ELSE IF RATE .A THEN 440 

00400 F=FtA-1SAS=SGNCFLTOF-X))SAS=SGNCFLTOD-Y )2°7F [t-Y¥=O THEN LET A7=S8xAS ELSE LET A7Z=FLTCF-X)/FLTC 

U-Y ) 

00410 BO=1S0°TF ARSC A? e=1 ANTE AS=1 THEN LET G=0 ELSE TF ARSCA7 <=] ANT AS=-1 THEN LET G=) ELSE IF A, 

S=1 THEN LET G=2 ELSE LET G=34 

00420 TF A4¢¢G6)="Tlown" THEN LET AZ=AS-BORC SHR NDX STE) ELSE LET RKLeRKNTe 1+. 13° R3=RS-ROKRLSAS=AS—( BO-BO 

WET aC OS A-RNDIE. TT) 

N0439 NEXT C 

00440 NEXT 0 

NO450 FOR [=k TO FiO cALb=A08l T)SALTAATE pA AEOO DIF =SEARCHUALH es AGS CIF FeO THEN 509 ELSE IF RANTES T 
HEN SOO ELSE LET F=F+tA~-1 

00460 TF RADE .S THEN LET G=F¢i ELSE LET G=F-4 

00470 TF RANTES THEN LET H=04d ELSE LET H=De-d 

90480 TF Hil GE Get GR H2100 GR G:100 THEN 500 

00490 ALS=ADNSCHISTF ALGO FE eG 2 "S" THEN 800 FLSE LET ALG=ALSC Fe Ged 42 S401 $C C41 IAOSCHIZALSIALS=A0 
SCT ALGAALR ple ke 3d 4h" 4 ALS FF HL AOS Tro=Alt 

OOOO NEXT Tl 

OOSIO CHINTORS)/1LOOTF=O°FOR T=0 TO StF A4$¢ t= "Ur" THEN LET F=F +4 

OOS20 NEXT DSIF Ch=F GR F=O THEN S30 ELSE LET G=ITNTI RNDK4 246440 6 )="Town" 

N0530 ASS=CHRI 34 )0F OR C=kR TH RELOSCALS=A0SCC IAS SEALSC pA AF20 CIF SEARCHE AL$s ADS L200 THEN LET SOS="%% 
YELLOWKE" SNEXT#HC £40 ELSE NEXT CreaTa S79 

OOS40 FOR T=¥-35 TO Yt3sTr Ted Gk G2100 THEN NEXT [GGT 870 ELSE LET Als=AOSCTIOOCFOR C=X-3 TO X433 1F 
ALS eC yO =CHRC 34) THEN LET SOd="*eeR EIR ONE THO SOO ELSE NEXT CINEXT ft 

NO8EO GOTG 570 

0050 NEXTeH 279 

OOS70 T=O°GOSURK 140°TF ASS1O THEN 1350 ELSE CURS 30,1 30PECIPRINT" COMMANIN " 5 (NORMAL 

OORBO TENt+lsAL$=KEY STF [F200 THEN 570 ELSE JF Ald="T" OR AtS=”"t" THEN FRINT’ Thruet"sGOTO &49 

QOOE9IO TF Alg="S" OR Att="6" THEN PRINT" Shielde" {GOTO 790 

00500 TF AL$="F" OR ALb="f" THEN PRINT  Toreedaes"tGOTa 939 

OO610 TF Altg="" OR Alg="6" THEN FRIANT Inner lav’ sGOTO 1989 

004620 TF f8ig="C" OR Alt="c" THEN PRINT’ Comeuter"sGOTO 1149 

00430 TF Alg="W" OR Ald="w" THEN PRINT’ Seve" i CURS Ls l4cPRINT CALZ7 S223°:G0TO 1470 

00640 TF Alg="X" OR AL$=" x" THEN CLEAR SGOTG 1380 

QOO6590 TF ALB="" THEN 560 ELSE CURS S0e14¢RRINT"Comeuter unable to interrret."3CURS SOc1StFRINT" Fleas 
e re-enter." SCURS S5,13°G0TO S60 

0660 TF A3=1900 THEN 180 ELSE CURS le t4ctRRINT CAL27 SO2TICURS el 4tPCGS PRINT” Mode?" SNORMALSCURS 19153 
PRINT’ Thrusters or Hyrercrace” 5 . 

00670 ALS=KEYUIF Als="T" OR ALS="t" THEN 720 ELSE IF Ailt="H" OR AlS="h" THEN LET Dl=USR(S23):GOTO 690 
ELSE TF Att="" THEN 470 

90680 CURS 30e14¢FRINT"Comruter unable to translate." iCURS 300153PRINT"Please re-enter."SCURS 61486 
OTG 679 

00690 TF A3<100 THEN i980 ELSE LET A3=A3-100 

00700 (URS 1el4¢PRINT CALZ7 S223CURS Le t4cPRINT"Hurersrace” {G=INTC RNIIKIOO +1 SH=INTC RNIKLOO )4+13A1L$=A0 
$CH)IIF ALS 6GeG DE "S" THEN 1390 ELSE LET Alb=A1$¢ 5196-1 4° 1 "40190 5C41 2 A0$CH AALS 

00719 AIS=ADSCY IALS=ALEC FLoX— 1 EUS" +ALSC OX41 TAOS Y D=A1$S X=GLY=HIGOTO 370 

00720 CURS Lsl4¢FRINT CAL27 S23:CURS Lel4sINFUT" Direction" ASS AS=FNOC AS )SA6=SINC AS )2A7=C0S( AS ) 

00730 CURS LelSt INPUT "Daistance"CiC=INTC ARSC FLT(C) SIF C=0 OK C210 THEN CURS 30s14°3FRINT"Computer de 
tects incorrect data."SCURS LylStPRINT CA29 32)" Re-enter release.” :GOTO 730 

00740 JF ASZFLTCC K15%0 ARS(A6 D+ABSC AZ 41) THEN 180 ELSE LET RO=FLTCX)SBI=FLTCY )$G=XtH=YsFOR C=1 TOC 
>KO=HO+AGs HI=HRLtA7 SIF Bi:100 THEN LET Bi=102-K1 ELSE IF Bi<1 THEN LET &1=100-Bi1 

007350 IF kO:100 THEN LET kO=102-BO ELSE IF BO<1 THEN LET 80=100-B0 

00740 D=INTC RO )SAL$=A0S( INTCEL) SIF ALSC pDtyD)c3"$" ANT ALSC py DO<e"!" THEN NEXTXC 780 ELSE LET G=INT 
(RO )$H=INTCRL)INEXT C [> 
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00770 AB=AB-FLT( C )K15%( AKS( AG )FABSC AZ )4+1 SALS=A0G! Y IALS=HALSC FL ye XL dE SU tALSC SX+1 )EAOSL Y D=ALS 2 K=6.Y= 
HS AL$S=A0S( Y IALS=ALEC S19 X—-L dF" U4AL SC PXH1 )SAOHCY D=ALESGCOTO 370 

00780 CURS BOs14SPRINT’Computer shut engines down sue to"$CURS 30,1S5tFPRINT"an ohstacle in rath. "SFO 
KR [t=O TO 3O03NEXT [13GOTO 770 

00790 CURS Lsl43PRINT CAL27 3233CURS 1s143PRINT" Transfer or Shield Change" s 

00800 ALS$=KEYIIF AlS="T" OR AL$="t" THEN CURS 19143F RINT CAL27 323:G0TO 930 ELSE IF Ails="5" OR Ald=" 
s" THEN CURS 1Le143F RINT CAL2Q7 323:GOTO 320 

OO810 IF Ait="" THEN 800 ELSE CURS 20-14: FRINT"Comeuter unzble to decode data."ICURS S0s1StPRINT"Ke- 
enter rlease.”"3GOTO 80°) 

00820 IF ASK15 THEN 180 ELSE CURS Jsl4tFRINT’Shielas" $s tC= 
OO830 ALS=KEY2IF ALS="F" GR ALt="fF" THEN FRINT"Forwerd”? 
ar"$C=1 ELSE IF Ailt="5" GR Alg="s" THEN FRINT’Startoers” a 
00840 TF AlS="F" OR Ais]="e" THEN PRINT"Fort"{C=2 ELSE IF Alg="" THEN 830 

OO850 IF Ceas4 THEN 879 

00860 CURS 30,14¢F RINT Comruter cetects incorrect cate. "ICURS SO,ISSERINT’Flease re-enter."sCURS a+] 
4:;GOTO 8390 

00870 F=OcAlt="Ue"SFOR T=0 TO St ASb=A4s0 TIFF +SEARCHC ADS ALS IINEXT ES CURS SOL4°0RRINT CAYS S2IICURS 
LeAStPRINT Statuses 

00880 ALS=KEYSIF AlS="U" GR Als="U" THEN LET Ait="Ur"SGOTO 920 ELSE IF Alg="T" GR ALé="c" THEN LET 6 
1$="Town" sGOTG 900 

00890 TF Ait="" THEN 360 ELSE CURS 29° 14¢FRINT"Cameuter unable to translate, "ICURS AOrTaIFRINT "Fleas 
e re-enter. ."ICURS Gs t52GaTd oad 

00900 IF Alt=A430 (00) THEM CURS SOe14¢FRINT Shiela elresdy et status. MSCURS SOslStPRINT Returnins 
to Commend Mode."SFOR C=1 TO S00tNE*T CIGGTO 476 

O0910 FRINT ALES CURS 47/G4CSP RINT G1b " "S400 CMALSIGSZAZ-TS2 FOR Ca1 TO ZOOtGOTO 379 

Q00920 IF INTC BA/1O0 8 F41 THEN CURS AOel4 PRINT" Unable ta reise another shiela."SCURS 00150 PRINT" Ret 
urning to Shield mode."tFOR Cm. TG SaOtNExT CiGGTo 799 ELSE GOTO 9O0O 

OOS3O CURS Lyl40PCGIPRINT’ Transfer Enersec" tNORAALICURS LelSiPRINT Shields evarletlec"s 

00940 ALS=KEVIIF Ale="" THEN 949 

00950 CaINTOVALC AIS FTF Ceol OR Co4 THEN CURS ZoeL4¢P RINT Tete ineut ais scrammleg."ICURS S0e1S0RRINT 
"Re-enter rlease."tGOTO 940 ELSE TF AStRASEL TO C)¥100420 THEN 140 
00940 CURS 19stliPRINT ALEI TF Cee INTs B307100 THEN CURS AO,L4tP RINT" Shields elready everlable., "I Cur 
5S SOvxsLStERINT Returning to Shield made."tFGR C=0 TO SOOtHEXT CeGOTS 799 

OO970 AA=AST+HA-FLTE CK1LD0 -2OC REFLEC RTOS GOTO 370 

00980 TF ASSKO THEN 1890 ELSE CURS Lei4tPRIn? CAL? SO7fIF Age4’O THEN 180 ELSE CURS Le l4cINFUT Ti rect 
TOR" ASS AS=FNOC BS AARSTA ASDC APRCISt AS SASHA A 40 

00990 CURS LrlSsInFuT tiastance"CiCle INTO ARSCPL TEC) TF C=0 GR CoS THEN CURS 3OsL4 RR INT" Computer cet. 
ects incorrect gate." CCURS PelLScPRINT CACY Jo" Re-enter release." sGOTG 390 

O1000 BO=FLTC X)IRLEFLT! Yo8Gse Hey ited srOe Cal TO CiBkO=GO+A6 SBISBLtA SIF INTC G1 92100 GE TINTS BO )2100 © 
BR OINTC RRL GR INTO BO)<1 THEN NEXT#O 19%0 ELSE TF [eo 1 THEN PORE Uy 32 — 
OL010 TEIN HO VEALS=ADRC TANTO RL OSTR Ald ete TeGHat 440 THEN NEX TREO ELSE TF ASC otty To ="#" THEN NE 
xTKC 1079 - 
O1020 TF INTC ROd=K AND TANTO HAY THEN NEXT C ELSE Yeh te 
663FOR F=1 TO LOOTNEXT FENEXT C ae 
OLO30 CURS BSOx14SR RINT" Tareeds exe laced harmlesely at. "'CURS ZOcsLSIPRINT INTC RO)" a" INTO RLY" SPCO4 
S)SFOR C=1 TQ BOO°NEXT CiGOTd 379 

91040 C=INTCRNDKLOOFTCTF Caaf THEN CURS 3001 4°°R INT" Torreda ineffective es the "SCURS 40x13 
FRINT’Celon Shir hed shields ure."sFaR C=) TO SOOSNEXT CIGlTa 470 

OLO50 ALS=ALEC Flot dt 4" S" FASC STF, DEAOR INT. Fd AL BIDS TH 6144146490 11 EB-TNTOBL-AtTSUSRC S20 eT SF GR 
G=1 TO 1OSTSUSRKO S79 )3FOR Hel TO LOOCNEXT HiGeUSk! S23 03FOR Y=1 TO LOOINEXT HINEXT G 

01060 DEUSROS7OVICURS BOvL4tPRINT Celon Attack Craft destrosec. "SCURS SOeiSSFPRINT CARS S2USFLAY 4 
SILSLS ASSIS LSS SESE FOR C=1 TO SOOIMEXT COIF E=0 THEN 1420 ELSE GOTO 370 

01070 CURS SOrt4cPRINT’Star aheormed the torredo at "SCURS SOeLStP RINT INTC RO)" os" INTO RDO" SECO LS 
YSFOR C=1 TO SOO°NEXT CiCGQTaQ 279 

010890 IF AS=10 THEN 190 ELSE CURS Jo tl4tRRINT CAL2Z" S2ILA3=A3-10 

01090 CURS Lrl4tPRINT CA29 323 

O1100 CURS Lel4c ENFuT’Co-ordinetes"AsRITF Aci GR Gil OR Asi190 GR B:100 THEN CURS JOv14°PRINT’ Compute 
r getects incorrect date. "sCURS SO+1S PRINT Flesse re-enter."@GOTO 1099 

O1110 G=ASH=HtA=A-1038=R-StIF AzB80 THEN LET A=80 ELSE IF Axi THEN LET A=1 

01120 TF K:90 THEN LET B=90 ELSE IF K« i THEN LET B=} 

01130 CLSSFOR C=1 TO 13tCURS 2OsCiPRINT CA23 JSS 7°NEXT COPCGSUSR+12¢F GR C=B+t190 TO BR STEP-1°CURS Zio 
“CUALS=A0S( CT IEFRINT ALEC 5 AsAt29 DINEXT CONGRMAL 

01140 [=61460+64K( LIFB-HOTG-ASFOKE Dy 21st Als="Tiselaus"+STRiG $" "457 ROH I CHt SA-LENC ALS D/2°CURS 20+ 
Col4sSFPRINT ALS 

O1150 IF KEY="" THEN 1150 ELSE GOTO 379 

01160 CURS Ls14¢PRINT CAL27 S22 3CURS Ly l4tPRINT" Moder”: 

01170 AL$=KEYIIF AL$="" THEN 1170 ELSE LET C=INT( VALC AIS) SIF C1 OR C22 THEN CURS S0,14¢F RINT" Compu 

‘Ler unable to decode dats."ICURS S0,15!FRINT"Re-enter rlesse."$CURS 6714:G0TO 1170 

(01180 IF C=2 THEN 1320 ELSE IF A3<15 THEN 180 ELSE CURS 19143P RINT CAL27 S23:CURS isL4¢PRINT"Direct 

lon/Distence 1" 3 C=As D=B3G=61441 SH=64+64K( LAtK-[I)4+C-ASF=PEERCH SPOKE Hy 2lsd 

01190 FOR I=1 TO 1O0{A1$=KEYLIF ALS<>"" THEN NEXTHI 1200 ELSE NEXT ISPOKE HeFSFOR T=1 TO 100tAL$=KEY 
sIF ALS<>"" THEN NEXTXI 1200 ELSE NEXT ISFOKE He2146:GOTO 1190 


0 ELSE IF Alg="R" GR Alt="r" THEN PRINT" Re 


T-AtL SHEL LER INT! BL fT 6 1440454¥4H46 SPOKE Uy 1 
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01200 FOKE Hy216$IF A1S=CHR(13) OR A1S=CHR( 13) THEN 1230 ELSE IF A1$="W" OR ALS="w" ANT O<R+10 THEN 

LET [=fi¢1 ELSE IF At$="Z" OR AlS="=2" AND [OBR THEN LET [l=fl-1 be ‘ : 

01710 TF Aig="S" OR Alg="5" ANT CSA¢20 THEN LET C=C+1 ELSE IF Ails="A" OR Al$="a ANT C>A THEN LET C= 

C-1 ELSE IF ALS<>°W" AND Aigce"w" ANT ALS<2"Z" ANTE Aigee "Zz" THEN 1190 

012720 FOKE Ho Ft h=G64+64%0 LAitB-D4+C-ASFEFEEKCH)SFORKE He 216:G0TO 1190 ; a : . 

01230 AZ=AB-1531F C=X AND G=Y THEN CURS 30s143FRINT"Comruter rerlies that the" t{CURS SO,1SSFPRINT" Fos 

tion suprlied is shir’s. "FOR C=1 TO 3OO%NEXT CiGOTO 370 a 

O12740 AS=FLTCC-X IA6=FLTCD-Y )f B4=SQR( ASKAS+ASKAS )EIF AS=O THEN LET A7=90:GOTO 1280 ELSE LET A7=AS/AG6 
‘IF A7=0 THEN 1280 ELSE IF ARSC A? )=.1 THEN 1270 ; = : 

01°50 TF Av<=.0174551 THEN LET A7=1 ELSE IF A?<=.0349207 THEN LET A7=2 ELSE TF A7<=.0524077 THEN LET 
A7=3 ELSE [TF A7<=.0699269 THEN LET A7=4 ELSE IF A?~=.0874887 THEN LET A7=5 

017460 TF A7=O THEN 1280 ELSE LET A7=6:G0TO 1280 

O1279 AZ=ATANC ARSC A? ) AF =A7KR7 295779 a iem ¢ | 
01780 AT=SCNLAS )IGG=SGCHCAG)LIF AS=1 ANT! AS=-1 THEN LET A7=190-A7 ELSE IF AS=-1 AND Aé=-1 THEN LET AZ 
=A7+180 ELSE IF A5=-1 ANT Aé}g=1 THEN LET A7=340~-A? ; | | 

01290 TF AS=O ANT Aé=—1 THEN LET A7=180 ELSE IF AS=-1 ANTE Ad=0 THEN LET A7=A74180 x | 

1300 CURS BOeL4iPRINT’Iustance tole "0" asl FAs. B4TICURS SOeT SPRINT  Tirection 16 CFA.1 AZ] 

OLziO TF NEY="" THEN (310 ELSE 370 


OLS29 TR Agn20 THEN 180 ELSE CURS desi 4tPRINT CAL27 APIICURS Ly l4tPRINT"Direction/Dictance 2" 

NLS59 CURS LeiStPRINT CAZ9 32) 

O1840 CURS Lelia tinPut’Co-ordinetes"CoMtTF Col GR fi OR C2100 OR C100 THEN CURS SOvLS SPRINT" Comeute 
ro getects incorrect Gate. "ICURS JOeLSIPRINT’Flease re-enter."!GOTO 1339 

OL350 Tr ABSCFLTCC-X) 0210 OR ARSCFLTCD-Y 28 THEN GOTO 1370 ELSE CURS 20.142 RINT Transferring to Ii 
atvence/ "SCURS SOe LS tPRINT’Cirection Mode LU tH=s1441444e0 Liebe Deca 

VLiSo0 FOR F=i TO SOOtNEXT FSPORE He 214°tG0TG 1239 

OlS70 CURS SOe14 SPRINT CARR S2UICURS JOeLSIPRINT CASS SST A3=AR-20°GOTO 1240 

O1A80 A=USRC SSS) 

O1S90 FOR GH) TO LOTESUSRCS7003FOR H=Ll TO LOOTMEXT HID-USRC SPS SF OR Het TO LOOENEXT HINEXT GICLEE sFRT 


NT" The engines of sour Colonial Virer heve exrladec.You ceave" 
01400 FRINT"wour life far the safeteu of the Colonial fleet. You will te remembered by ell far vo 


ur sscerifice.& minute’s silence will te held in vour memory.” 
O1410 FOR A=1 TO 1OOOtHEXT &3CGQTO 1449 


014290 CLOIPRINT" You have cleared the sslaxs of ell Cslon shirs.The Cauncil of Twelve bas eward 
ea you the Ster af Coheld.At e sreciral ceremon 1 Acéeme bimeelfeuwrltl pin "9 

1430 FRINT’ tne mecel on wou.You ere 4 Colonie] Warrior ang an officer of the BRettlester Gelact 
ICE. Tuty end honour cames first.” 

01440 CURS LrOteRINT" Tne Cylon menece hes not vet been ctorrecd. Their shires continue ta reach furthe 
roanto the cerths af srece.The Cylons must be jeleyedvsa the Battlestar" s 

O1450 PRINT" and the eccomrpaneing shires cen increese the Gistence between themselves anc the 


enemys" \\"A@re there ans Warriors willing to celey the Celon etteck force?" 

01460 ALE=KEYIIF Alg="Y" GR Alt="2" THEN CLEARIGOTO 250 ELSE TF AtG="N” OR ALt="n" THEN CLS ¢FOR A=28 

04 TO GI920FOKE Av OUNEXT AtFOR A=12G TO SOOTFPORE Ay OItNEXT ALNEW ELSE 1440 

O1470 CURS Ls i4tPRINT Please wait." SAZb=CHRC Aa 0IGeOLF GR [=1 TO 1O0fA1$=606( 0 SPOR Cet TO SOtF=SEARCH 

(ALS Alb CULTF FO THEN NEXTAKO 1460 ELSE LET UCGO)=F SUC Gs 1 J=DG=HGE1INEXT C 

O1400 NEXT DH=OCFOR G=1 TO 1O0tA1$=AOS(DOIFOR C= TO 7OLF=SEARCH ALE H" yO ETE Ft) THEN NEXT#E 1490 
ELSE LET Ti He O =F TOHS 1 SDSHEHFLONEXT C 

OL490 NEXT DH=H-1°G=G-1LICUuRS LrlStPRINT’ Start recordings." tFOR Dei TO TSOOSNEXT IDICURS Ly 1 SSPRINT"No 

w SAVEWANS "SGUTE2SFOR A=1 TO SEPRINT LABA SSUINEXT ASERINT" $4444 GAMEVAR” 

NLS00 FRINT CIS te HME Xe eM ZN AA" MARAE OR A=O TO StFRINT A440 AG 0°NEXT 4 

OLS10 PRINT CIS 2aFOQR A=0 TO HOFRINT ThA, ODINEXT ALFRINT CIS Z2IFOR A=0 TO HEPRINT TCAsLINEXT ASEF 

INTCIS 4]7°3F0R A=O TO GtRRINT Ul Ar OD INEXT A 

01520 FRINT CIS SAFOR A=0 TO GOPRINT UA LOINEXT ASFRINT CAS S3I0A5 243 GUTHOLGOTO 379 

OLE30 CURS SOs StERINT" Saved Geme"SCLEARI DIM AOC 100 9 A4¢ ZSINEZEOUTHEOSGUT#O OFF 

OLI40 INPUT ALSIP ALS od eS oe" S$G5E" ANE ALS F195 >"GAMEVAR" THEN 15490 ELSE QUT#O°CURS 30,13°FRINT" 

Loading "SOUT#O GFF 

OLS50 TNFUT AlfsGoHy Esko Yo teAae RSF OR A=O TO SLINPUT A4SC AVSNEXT ALTIF VALC AIG) THEN 1640 ELSE [Im ut 

Golde Ti Het) 

OL260 INPUT ALS ith VALC ALS )&°3 THEN 1440 ELSE FOR A=0 TO HS INFUT TCAs O)ENEXT ASINPUT ALSISTF VALC AIS) 

“23 THEN 1640 ELSE FOR A=0 TO Hi INFUT TAs L)ENEXT &é 

01570 INFUT ALES EF VALC ALS )o24 THEN 1440 ELSE FOR A=0 TO GtINFUT UC As OVSNEXT ALINPUT ALSSIF VALC ALS) 

ao THEN 1640 ELSE FOR A#=0 TO GLINFUT UC As 1 )INEXT A 

O1580 QUTFOT INFO CURS 23,1 StPRINT’Loedecd" 

O129O0 STRSC 11000 DEFRMTC § SFOR A=1 TO 1003 A086 A )="$$4E5S555S5SSS$S5E5S$SS55555F55555$5$555$455565549566555555599S 

SESSFSESSSESESSSSSSSSSSESSSSFSSSSFSSSSSSSERSSELE SSE" INEXT A 

01600 FOR A=0 TO HO BR=Ti Ag 1 )SC=TCAyx0 )LALS=A0SL BH )SALS=ALS. 5 19C-1 +7 #"FA196 CHL )SAOSC RD=HALISINEXT ALFOR 

A=0 TO GIR=UCAsl )SC=UC AsO )SALE=ANGC K)SALS=ALS. 5190-1 Dt CHRS 34 4+A1 $6 $CH+1 A008! B=HA1S 

O1610 NEXT ALALS=A0EC Y ALS=A1SC FL eX 4" I FALSE X41 SA0BC Y D=A1S 

016290 INVERSE: NGRMALS RESTORE 190°A=4640143F0R A=A TO ATISSREAD BESPOKE AsBRINEXT A 

01630 IF KEY="" THEN 1630 ELSE 369 

01640 IN@OSOUTFEOSCURS 2S,1SSFRINT" Tare Unreadable"tFOR A=1 TO ISOO03NEXT ASGOTO 250 
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CHASER 


Chaser is for one or two 

players. The computer plays a 

fairly good game as well. 
Richard Larkin 
Dee Why NSW 


@@i@WREM CHASER 
M@ii@REM By Richard Larkin 


@012@ CLS : PRINTFF"In this game you may Play me or a friend."#"The idea of the 
game iS ta avoid hitting anything white. "+"One Player uses then W,A,S,Z diamond 


Fay movement and the" 

QOWiZzBW PRINT"other uses the I,J,K»iM diamond. "F"Any key to continue..." ! I=USRC327 

7G) 

@@i4@ CLEAR : RESTORE : POKE162,2@ : POKE163,128 =: CLS =: PRINT###"ONE OR TWO PLA 

YERS (1 or 2)" 3: FOR X=1TO9999 =: K1i$=KEY =: IF X(20 OR K1$=""" THEN NEXT X ELSE IF 
K1igsS="2" THEN 750 


@@150 SDE = CLS : PRINT#¥ = INPUT"SKILL LEVEL 1 TO S"H1i =: IF H1<1 OR H1i)S THEN 1 
20 ELSE LET H1i=1-H1/10 


@@16@ CLS =: LORES = X=32 : Y=20 : A=Z =: BH15 : C=1 : U=@ = D=1 =: M=@ : PLOT 1,0 
TO 75,@ TO 75,46 TO 1,46 TO 1,0 


00170 SET X,Y = IF POINTCA,B) THEN PLAY2@,3 : GOTO 25@ ELSE SET A,B 
@@1SQ P=P+1 


S" THEN LET D=1 
T D=@ : M=-1 


POKE257,1 =! K1i$=KEY = IF K1%="AQ" THEN LET D=-1 =: M=@ ELSE IF Ki$=" 
> M=@ ELSE IF Ki$="W" THEN LET D=@ = M=1 ELSE IF Ki®="Z" THEN LE 


@@19@ A=A+D = B=B+M = X=X+C = Y=Y*+U = IF (X=AANDY=B) OR (X=A-DANDY=B-M) THEN PLA 
Y20,2 : GOTO 250 


09200 IF X<z2 THEN LET X=75 ELSE IF X)75 THEN LETX=2 ELSE IF Y<41 THEN LET Y=46 EL 
SE IF Y)46 THEN LET Y=1 


@@2i@ IF RND(H1 THEN 220 ELSE ON INTCRND*2+1) GOSUB 299,320 

@@220 IF RND(9 THEN 170 ELSE READC,U = IF U=1@ THEN RESTORE =: U=@ 
00220 GOTO 170 

@0240 DATA -1,0,1,0,0,1,1,0,0,-1,-1,0@,0,1,1,10 

@@25@ CURS 29,8 =: PRINT"YOU HAVE BEEN HIT" 

@@262 CURS 39,9 = PRINT" TOTAL SCORE="P 


@@27@ CURS 39,1@ = PRINT"HIT ANY KEY TO PLAY AGAIN" 
@@280 I=USR(32774) :% RUN 
@@290 IF X<A+D*3 THEN 300 ELSE LET C=-1 =: U=@ 
"eusae IF X)A+D*3 THEN 310 ELSE LET C=1 : U=0 
@@31@ IF X=A THEN 320 ELSE RETURN 
@@320 IF Y<(B+M*3 THEN 330 ELSE LET U=-1 : C=@ 
@@330 IF Y)B+M*S THEN 34@ ELSE LET U=1 =: C=Q 
@@34@ IF Y=B THEN 29@ ELSE RETURN 
@@350 INPUT"SPEED LEVEL (@ TO 5@)"S : S=5@-S =: IF S(@ORS)5@ THEN 350 


@@36@ CLS : LORES : PLOT @,@ TO 127,8 TO 127,47 TO 0,47 TO @,@ : X=@ : Y=10 : C= 
127 : U=37 : D=1l =: F=-1 : H=Q@ : J=@ : K1*€=KEY 


@@37@ SET X,Y =: SETC,U = X=X+D : C=C+F = Y=Y+H : U=U+J =: IF POINTCX,Y) OR POINT C 
C,U) THEN 4190 


Q@@3S68O KiS=KEY =: IF K1$="W" THEN LET H=1 : D=@ ELSE IF Ki#="I" THEN LET F=@ : J=1 
ELSE IF Ki$="Z" THEN LET H=-1 =: D=@ ELSE IF Ki$="M" THEN LET F=@ : J=-1 


@@590 IF Ki$="A" THEN LET D=-1 = H=@ ELSE IF K1i$="J" THEN LET F=-1 : J=@ ELSE IF 
K1$="S" THEN LET D=1 = H=@ ELSE IF K1i#="K" THEN LET F=1 : J=0 


@@400 FOR T=@TOS = NEXT T : GOTO 370 


@@41@ PLAY24,10 = IF POINTCX,Y) AND POINT(C,U) THEN LET £1$="S AT BOTH ENDS HAVE 
LOST." ELSE IF POINT(X,Y) THEN LET E£1$=" ON THE RIGHT HAS WON!!!" ELSE LET E£1$= 
“ON THE LEFT HAS WON!!" 


@@420 CLS = PRINT###"THE GAME HAS ENDED AND THE PLAYER"; 


* SPEED255 = PRINT E1% 
7 SPEED@ = PRINT##"TYPE ANY KEY TO START AGAIN." =: I=USR(327 


74) = RUN 


date 


OYSTICK TEST 


This program is an adaptation 

of testing your joystick which 

appeared in the Microbee En- 

gineering Notebook. | have in- 

cluded the “print x print” to 

show your position on the 
screen. If you press the fire but- 

ton the screen clears and you 

start again from your last posi- 

tion. 


Rod Blockely 
Mundingburra QLD 


9919GX=23535:S=128:REM center screen 

SB11 SHIRES 

BGG12G0UT1, 255:REM initialise port 

BBLSBA=IN(B) REM read joystick on port B 

BB14GA2143- (AAND143) ;REM convert to positive logic 

@Bi1S5SB=- (AAND1) : IFBTHENSETX,S:S#S+1:CURS1,1:PRINT"X"X:PRINT"S"S 
G81 68B=- (AAND2) : IFBTHENSETX, S:S#S-1:CURS1,1:PRINT"X"X:PRINT"S"S 
8981 79B=- (AAND4) : IFBTHENSETX,S: X=X-1:5CURSJ,1:PRINT"X"X:PRINT"S*°S 
@Bi1SHB=- (AANDS) : IFBTHENSETX,S: X=X+1:CURS1,1:PRINT"X"X:PRINT"S"S 
981 99B=- (AAND128) : IFBTHENGOTO119 

BBS2GGIFA=BTHENGOTO138 

9B21SGOTOi138 


GRAPHER 


Grapher plots a two dimen- 
sional graph for values —5 to 
+5, and then lets you change 
the formula. It can also plot in 
three dimensions. 
Richard Larkin 
Dee Why NSW 


@@10@ FNi=SINC#) 
@@11@ REM PLOTER 
2012@ REM By Richard Larkin 


@@13@ POKE1G2,3@ : POKE163,126 = CLS = PRINT+++ " GRAPHER" A'S or 3 dim 
ensions (Type 2 or 3)" § KIS=KEY 


@@i40@ KiS=KEY : IF Ki$="2" THEN 200 ELSE IF K1$="3" THEN 150 ELSE 140 


@@15@ CLS : PRINT## "Input step X "Fi INPUTS = INPUT "Ineut step Y "Bi : INPUT 
"size (50 to 15@)"Al 


@@16@ ONERROR GOTO 240 : SD4 : CLS =: HIRES =: D1i=. 0327 


@@17@ FOR H1i=-A1TOAI STEP Bi + AZ=FLTC INTC .5+SQR¢ AL*A1—-H1*H1))) © FOR B2=-A2T 
OA2 STEP S1 : C2=SQRC B2*B2+H1*H1)*D1 = D2=FNi¢ C2) +: D3=De2*20 


@018@ X1=B2+( H1/B1i) = Y1=D3-(€ Hi/B1) = X=INTC .75%#X1) = Y=INTC .8*Y1) : SET X+2 
55, Y+7@ = PLOTR X+255, Y+69TOX+Z255, Y+6Q = NEXT B2 = NEXT Hi 


@@190 CURS 5,5 = PRINT"FINISHED" = GOTO 190 
5 

@@20@ CLS =: HIRES = SD4 =: FOR X=-100T010@ STEP 20 =: FOR Yi=-1@@T01@0 STEP 20: § 
ET 255+X, INTC Yi*¥.63)+126 = NEXT Y1 = NEXT X : CURS E65 : LIST 100 


@@21@ FOR Xi=-STOS STEP .1 : IF X14)@ THEN LET Y1i=FNi¢ X1) = CURS 28,14 : PRINT 
x1" ae Dh “3 IF Y1¢«5.1 AND Y1)-5.1 THEN INVERT INTC X1#20+255),INTC Yi» 
12.6+128) 

@@22@ NEXT Xi 


@@230 IF KEY=""" THEN 220 ELSE POKE 220,0 : CLS : PRINT##F¥ "Retype The formula pr 
ess ‘RETURN’. "#"Then press ‘RESET’" : EDIT 120 


@@24@ CURS 5,5 = PRINT "FLUNK" =: GOTO 240 
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EINSTEIN Il 


+ + EINSTEIN rit ot SP tot 
This program was written on the 00010 REM#X### WRITTEN BY GREG ADCOCK #4HHHt 
Microbee and uses less than 00050 REMERAEE | Sa/OS RRR 
5K! Einstein Il is a game of re- OO0SO REMEREHEAEAEREAEREREEEESEAEEEEEE TIE 
membering sequences as they 80100 T=O:DINDI(40):DIMAI(40) 
get longer and longer. The 00120 T=0 
game has five levels of diffi- 00140 PLAY 0,4 
culty. There is a three second 00160 IF TeR THEN 750 
time delay for each keystroke 0010 IFT>11 THENLET J=4 
so you must think quickly. 00200 GeINT(RNDES) 
The program has some un- 00220 IF Ge2 THEN LET Al(T)=320 

necessary documentation which 00240 IF G=4 THEN LET Al (T)= #20 
you may want to omit. It ap- 00260 GoToa7o 
pears after line 4000. Of course PRINT “BBBBBBPBBEBBBBBBBE” : CURS 10, 2 PRINT “CCCCCCCECCCCCEE EC 
all ‘REMS’ should not be typed. C0280 VARIK;YIIPLAY 2)X 0 — 
If the four keys used on lines 00300 CLS" 
580 to 610 (Y,U,G,H), prove to 00320 CLS: PCG: CURSO, 5: PRINT * DDDDDDDDDDDDDDDDDDD" : CURSO, 7: P 
be awkward simply alter them! "CURSO, 6: PRINT“ BBBBBBBBBBBBBBBBBB®  MAAAAAAAAAAAA® 

G. Adcock 00340 IFY=1THEN PLAY 0-1 

Oak Park NSW 00360 RETURN 


00370 CLS:PCG:CURS1O, 10:PRINT" BBBBBBBBBBBBBBBBB" : CURS10, 11:P 
RINT "CCCCCCCCCCCCCCCECC*: CURSIO, 13: PRINT "AAAAAAAAAAAAAAAAAA * 
: CURS10, 12: PRINT "DDDDDDDDDDDDDDDDDD* 

00380 VAR(X,Y):PLAY 17,X 

00390 IFY=1 THEN PLAYO, 1 

00400 CLS 

00410 RETURN 

00420 CLS:PCG:CURS3O, 10: PRINT "AAAAAAAAAAAAAAAAAA" : CURS3O, 13: 
PRINT * BBBBBBBBBBBBBBBBBB" : CURS3O, 12: PRINT "CCCCCCccccccccécce 
":CURS3O, 11: PRINT" DDDDDDDDDDDDDDDDDD" 

00430 VAR(X,Y):PLAY 24,x 

00440 IF Y=i THEN PLAY 0,1 

00450 CLS 

00460 RETURN 

00470 W=0 

00480 W=wW+1 

00490 IF W>T THEN 320 

00500 GOSUBLJ,KIINT(AL(W)) 

‘00510 GOTO480 

00520 @=0 

00530 @=1+8 


Minder is like master mind ex- 
cept you can choose the 
number of columns, colours and 


guesses you get. 
Richard Larkin 


Dee Why NSW 
QBiQ@WREM MINDER 
M@Bi11i@REM By Richard Larkin 
QieO@ CLS = PRINTF" Welicome to Minder"F"You will be asked HOW many columns you wi 
Sh then colours"#"Crepresented by letters A-Z) then how many guesses. " 


QOizO PRINT"Yoau must then type in your guess for the computers hiden code. "F"Bac 
kK Space may be used. "#"The rules are the same as for Master-mind. "##"Any key ta 
Start..." §&§ JT=USR¢(32774) 


Q2@i40 POKEZ2@,63 : INVERSE = CLS +: POKEI62,2@0 = POKEIE2,126 * CURS 26,16 : PRINT 
"MASTER-MIND. "3 = NORMAL : FOR X=1TO7 = FOR Y=1TOE@+X*X*2 = NEXT Y = PRINT = NEY 
ts 


@@15@ POKES2@,@ : CLEAR : INPUT"How many columns would you like (1 to 13) ?" 17% 
s C=INTCVALCI7#$))>) «©: IF C12 OR C1 THEN 150 


20162 INPUT"How many different colours (2 to 26) ?"I17% =| L=INTCVALCI7$)) =: IF L}: 
26 OR L<z2 THEN 162 


00170 INPUT"“How many suesses would you tike (i to 13) ?" 17% : G=INTCVALCI7#$)) & 
IF G41 OR G12 THEN 170 


O@@18@ DIM CicC),GicC),wWicC) = D=@ = CLS = UNDERLINE | CURS26,1 = PRINT"Master-Mi 
nd. '' § NORMAL = FOR X=1TOC =: C1i%$¢X)=CHRCINTCRND*FLT(L>+65)) § NEXT X 


00540 IF@e*T+¢1 THEN GOTO 1530 


oOSSO S=0 02070 IFW1@e"3* THENLETR=14 
008360 S=8+1: IF S=420 THEN 740 O2060 IFW1i@="4"* THENLETR#=21 
00870 KI@®eKEY: IFKi@=°"* THENS60 O2Z2090IFWi1S="S* THENLETR=33 
008580 IFKiS=*Y" THEN660 O2Z1O0OIFWiG="xX"ORW1S="x" THEN LETR#INT (RND#29) 
00590 IF Ki@=°U" THEN 660 02110 GOTO120 
00600 IF Ki@="G* THEN 700 O3000 CURS 20,8:PLAY 163165205 23305 205 23,6:PRINT* YOU'VE wO 
00610 IFK1$="H" THEN 720 nN ofte 
00620 GOTOS60 03010 NORMAL: CURSE,9:PRINT® AND I'M JOLLY WELL PLEASED TO SE 
00630 REM — It Too." 
00640 REM 03020 PCG 
OO6SOREM 03030 GOTO760 
00660 R1#320: IFR1=2A1 (@) THENGOSUBI J, KI 320 04000 PRINT"Hel lo," 
00670 R1=#=320: IF R1<A1(@) OR R1>Ai (@) THEN 740ELSEGOTOS3SO 04010 PRINTSPC(7)°I would like to tell you a few things abou 
00680 R22@270: IFR2#A1(@) THEN GOSUBIJ,K1270 t this program’\"to make it easier to run. It is not an easy 
00690 R2=270: IF R2<A1 (@) ORR2>A1 (@) THEN 740ELSEGOTOS30 ame so don't be"\"deceived. ° 
00700 R3#370: IF R3#A1(@) THEN GOSUB(],K1370 020 FORI@=1 TO 3000: NEXTI:PLAY10,4 
00710 R32370: IF R3S>A1 (@)OR R3< AI (@) THEN740EL SEGOTO S30 04030 PRINTGPC(7) "It is much like the more expensive game ‘E 
00720 @1m420: IFR1=@A1(@) THENGOSUBII,K142 INSTEIN’ (only"\°much better! !!)* 
00730 R1#420: IF Ri<A1(Q)OR R1>A1(@) THEN. 740ELSEGOTO 530 O4040FORI@1 TO 2600: NEXTISPLAY 10,4 
00740 NORMAL : PRINT" WRONG": PLAYO, 8: GOTO760 04050 PRINTSPC(7)"I¢ you already know about this game, then 
007830 NORMAL: T=R-1: GOTO 3000 press ‘S’"\"to get started. Press ‘I' to receive more intorm 
00760 IF T>#E THEN 760 ation." 
00770 NORMAL : GOTO820 04060 FORI=1T02300: NEXTI: PLAY15,4 
00780 E#sT 04070 LI@=KEY: IFLi1@#** THEN 4070 
00790 FOR I#1 TO w 04060 IF Li@®e"S* THEN 1000 
00800 DiI) #eai(t) 04090 IF LiS@="I"THEN 4110 
00610 NEXT I 04100 GO0T04070 
00820 bea INPUTS 4H4HHE ‘1° TO CONTINUE...‘2° TO SEE BEST 04110 NORMAL: CLS: INVERSE: PRINT ° THERE ~ S LEVELS OF PLAY 31 
SCORE. OR ‘3’ TO CHANGE LEVELS... jJHHHE® PIS: CLS: IFPIG="1 BEING THE EASIEST" \"°AND 3 THE HARDES 

i THEN G@0T0930 041 Z0LETAS@= "REPETITIONS" :NORMAL SPLAYO, 2O:CURS 14,3:PRINT* 1 
COCS@SO IFP1@="2° THENG70 = SIX "*tA3@ 
00840 IFP1@e"3° THENG6O 04130CURS14,35: PRINT’ 2e NINE °+A36 
00680 GOTOe20 04140CURS14,7: PRINT" $= THIRTEEN °+A38 
00860 GOTO2030 04150CURG14,9: PRINT’4= TWENTY °taA3@ 
00870 T#0:120 04160 CURS14, 11° PRINT"S= THIRTY-TWO “°+AS® 
00eeo I=I+1 04170 CURS1I4, 13:5 PRINT °X= RANDOM NUMBER CHOSEN BY THE COM 
00690 PRINT I PUTOR, °:CURS 14,14:PRINT°RANGING FROM 1 TO 26!!'!° 
00900 GOSUBLIL, LIJINT(DI(I)) 04180 CURSSO, 16: INPUT °PRESS< RETURN °@46 
00910 IFIDE- 1 THEN 620 04190 IFQ@4ee"" THEN4200 
00920 GOoTOBEeO 04200 CLS:PRINT" The object of the game is to successfully 
00930 T#0: GOTO130 repeat the tune’\"and pattern the computor gives you. There a 
01000 P2#634868+65#16 re four dif¢erent’\" asotes gach with its own ‘square’ °§ 
01010 FOR A=P TO P4+16#4-1 04200 PRINT" and you must try to °\*match them using the fol 
01020 READB: POKEA, B lowing keys...° 
01030 NEXTA 04220 PRINT: PRINT® R T “$2 INVERSE: PRINT 
Gar eae ose Sag eee ee ane ene Lan eennel ere eeera el eaene " Y°ES NORMAL: PRINT* : INVERSE: PRINT" Uowss NORMAL: PRINT? I 

5] 8 a) p* 

01030 b A DAaD7p7aTFeA7sJ7aFaF%eFsJu7u7sFuJPu7g? O42S30PRINT: PRINT" S D_ F "3:3 INVERSE: PRINT" G 
01060 DATA 6,6,6,6,6,6;6,6;6,6;6,6,6,6,6,6 S=NORMAL: PRINT" °s: INVERSE: PRINT°H °3:NORMAL: PRINT" J K 
01070 DATA 6,6,6,8,8,8,8,6,8,8,6,8,8,8,8,e tL * 
01080 6OTO2030 O4240PLAYO, 43512,4:2:PRINT: PRINT" THIS IS NOT ALL THOUGH. ° 
01090 CLS: NORMAL 04230 CURSSO,16: INPUT"PRESS <RETURN>"Y48 
02000 NORMAL :CLS O4260IF Yaea*s THEN 4270 

O2010 PRINT[IAGS 144)\\" MIKE ROBEE PRESENTS ...."°\* 04270CLS:PLAY14,4: PRINT" You also have to reply to each note 

EINSTEIN(II) "\\{AG3 144) within a time Limit! "\* This limit is between 3 & 4 seconds- 

02020 SOTO 4000 eo don’t relax!!!" 

02030 INPUT° WHICH LEVEL WOULD YOU LIKE, 1 (EASIEST) ,2,3,4,35 OR 04280 PRINT "The game also pace taster the further you get i 

A RANDOM NUMBER (X). *WiS nto it."\" ee. THIS IS MIKE ROBEE WISHING YOU GOOD LUCK IN YOU 
02040 CLS R VENTURE. 

02050 IFWi1@="1° THEN LET R=7 04290 INPUT" <RETURN> TO START... "K6®S 

02060 IFWI@e"2"° THEN LET R=10 04300 IF K6S="" THEN 1000 


@0190 S=25-(C#3)/2 : A=S+C#z 
STEPS = CURS X,2 =: PRINT"?" 
INT". "5 & NEXT Y & NEXTX 


CURS A,Z ! PRINT"Biack White" + FOR X=STOS+C#2-3 
CURSX,2 & PRINT"#" = FOR Y=4TO3+G : CURS X,Y = PR 


@@200 U=1 =: B=@ = W=2 * Ki$=KEY +: CURSS+U*3-4,D+4 


PRINT" "5 


O@@210@ POKESS7,1 * KiS=KEY =: IF ASC(K1$)=8 AND U)1 THEN LET U=U-1 + CURSS+U42Z-2Z, D 
+4 = PRINT". "3 = CURSS+U*2-—4,D+4 & PRINT" "$3 : GOTO 216 ELSE IF K1#("A" OR K1®)C 
HR¢CL+64) THEN 218 


OO220 GisCUO=K1s = CURS S+U#t-3,D+4 = PRINT Ki$s = U=U+1 = CURS S+U*2-4,D+4 : PR 
INT’ "3 ¢ IF U<¢C+l THEN 210 ELSE FOR X=1TOC +: IF Ci#¢X>=G1$C(X) THEN LET B=B+1 


M@@22Q NEXT X =: IF B=C THEN 25@ ELSE FOR X=1TOC : W1$CX)=C1$(X) =! NEXT X : FOR X= 
iTOC : FOR Y=1TOC + IF G1#¢X)()W1$CY) THEN NEXT Y ELSE LET W=W+1 = W1$CYo="": 
NEXT#Y 240 


OO24@ NEXT X =: W=W-B = CURS A+1,D+4 : PRINT Bs : CURS A+8,D+4 : PRINTWS +: D=D+i 
> IF D<CG THEN 200 


BO250 POKES2@,65 : FOR X=1TOC = CURS S+X#2-3,2 2 PRINT Ci#€X) = PLAYINTCCFLTCASC 
CCl$¢XI99-B4)/1.129+1 © NEXT X & I=USROZ3774) +: CLS : PRINTs++ 


@@260 IF B=C THEN PRINT"Ceongratulations you have guessed the secret code !" ELSE 
PRINT'Sorry you have not guessed correct. " 


WO270 PRINT" Type any key to Play again." ©! [=USR¢22774) : CLS : PRINT4¥¥ : GOTO 
150 


119 


The program simply calls up a 
machine code routine every 
time a character is printed. This 
is a very useful program for typ- 
ing or whenever a character is 
printed such as a BASIC error 
or listing a program. It will pro- 
duce an audible signal for every 
character printed. 

All the program does is print 
the relevant character for the 


KEY CLICK 


key pressed then produce a 
sound. To change the tone and 
length of the note alter the 90 
in line 140 for length and the 20 
for the tone. 

| find it much better for typing 
to hear a nice sharp ‘beep’ 
rather than a ‘clunk’. 


Alistair Ferrier 
Coleraine Vic 


00100 FOR A=15000 TO 15022 

00110 READ B 

00120 POKE A,B 

00130 NEXT A 

00140 DATA 71,205,12,128,6,90,14,20,62,0,211 

O0150 DATA 2,13,32,253, 62, 255, 211,2,5,32, 240,201 

00160 REM Change output vector to jump to MC routine 
00170 REM every time a character has to be printed. 
00180 POKE 178,152:POKE 179,58 

00190 REM 


00200 REM To restore type "POKE 178,47:POKE 179,166" 


PASSWORD 


This little routine discourages =~ oT {an 
unauthorized activity. GS REM GOTO MAINLINE 

On violation = of this ig eM -- PASSWORD -- JL. ELERORME 
‘Password’ sub-routine the sing- ap ye ime ia: TM Cue tu: GM tae oo) 
ular features of the APF caus€é se pen 0 ea re oaeeuinen 
the keyboard to be disabled. “i the KEYS co To Tien THER 3 

BREAK will terminate the 4c en | 
audio alarm (Line 9030) but 7" Tih as ae eee 
entry to the high resolution ~~ 2" UNie ore ne ae 
mode in this fashion (Line 9020) =» =") =" ‘s copies esate 

ore er, Tae Re Oe i id Or cd 

permanently locks out keyboard =~ =' Be Gos "MQ050" THEN RT rd fee - 
response. The only way out is “=! 2° W204 Toe SAG) BEM /~ Tame po PRSSAORD USED 
to power down and re-load the °! SOTU oe 
program. Gt Bie MEM Me 

Obviously you would not use ite deci Sade: Dae 
this approach unless you can 22) MIT UPASTMORDT": GOSUE Le 
retrieve from disc or tape what oi2c  SmraT wsummmoge: ota 
you were working on. The saqa oeper womcumrry ree ert oa 
catastrophic effects of @ osnie fem cet Ter Gam. wovT 
password violation will perma- ree rire ts o 4 mn crt: coer 4 el + 
nently discourage fiddly fingers ....-.-, ort oe cnr es mutes 
however! ee ial menpee ee 


J. Elkhorne 
Chigwell Tas 
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10 
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49 
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59 
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375 
380 


MISSION IMPOSSIBLE 


REM Mission Impossible, 

REM written by Peter Fallon. 

REM Data for plane tail,CHR$(192) 

DATA 192,240,252,255,255,255,255,255 

REM Plane body,CHR$(193) 

DATA 0,0,0,0,255,255,255,255 

REM Plane nose,CHR$(194) 

DATA 0,0,0,0,192, 240,252,255 

REM Building, CHR$(195) 

DATA 255425552555 255 52554255 52555255 

REM Base,CHR$(196) 

DATA 1°70,170,85,85,170,170,85,85 

REM Bomb left, CHR$(197) 

DATA 242515357575351 

REM Bomb right, CHR$(198) 

DATA 64,64,128,192,224,224,192,128 
REM Explosion, CHR$(199) 
DATA 204,204,51,51,204, 204,51, 51 
REM Bullet left, CHR$(200) 

DATA. 0,045.19 35351 90,0 

REM Bullet right,CHR$(201) 

DATA 0,0,128,192,192,128,0,0 

REM Gun left, CHR$(202) 

DATA 1,3,7,15,31,255,255,255 

REM Gun right, CHR$(203) 

DATA 128,192,224, 240,248, 255,255,255 

REM B(5,2) holds the location of the enemy guns 
RESTORE : DIM B(5,2) 

FOR Z = -512 TO -417 : READ A : POKE Z,A : NEXT 
PRINT CHR$(12) ;TAB(20) 3"--------------- 4" 
PRINT TAB(20)3;"! Mission fh 
PRINT TAB(20)3;"| Impossible \" 
PRINT TAB( 20) ;%-------------- a" 
PRINT : PRINT TAB(40);"By Peter Fallon" 


You are flying a bomber over an 
enemy installation and your fuel 
is running low. You must try to 
land — and to do so must bomb 
most of the buildings below you 
that are in your way. If you hit 
a building your plane explodes, 
if you run out of fuel you crash. 
Beware of enemy gunfire as 
well. 

The program uses the keys: 
A, Z and 1,2,3 (on the keypad 
only). If you want to generate 
your own landscape you must 
give the heights (1-9) of each of 
the 32 buildings. They are 
drawn as you go. 

The machine program (given 
by the data) generates 16 bytes 
(which are stored in locations 
32 to 47). If you record what 
happens when a particular key 
is pressed ( or a combination of 
keys!) you will find which bytes 
must be checked for different 
keys. (Note that the data given 
above is the first 17 bytes of the 
machine program given). 

If you think that the game as 
given is too easy or hard then 
change line 420 to suit (that is, 
increase/decrease the number 
of clusters or forward fire left or 
the fuel allowed). 

Peter Fallon 


Peter, send us your address! 


PRINT : PRINT"Land your plane Before you run out of fuel." 


PRINT : PRINT"Bomb out the buildings in your way" 


PRINT : PRINT"and avoid enemy fire!" 

PRINT : PRINT"Use the keys :" 

PRINT : PRINT" A for up" 

PRINT : PRINT" Z for down" 

PRINT : PRINT" And the keypad numbers :" 

PRINT : PRINT" 1 to drop a bomb" 

PRINT ¢ PRINT" 2 to drop a cluster bomb" 
PRINT < PRINT’ 3 to fire forward guns" 


PRINT : PRINT"Do you want bomb trajectory to be (A)ngled or" 


PRINT : PRINT"(S)traight ?" 

REM Data for GET $ routine 

DATA 205,21,224,194, 250, 223 

DATA 205,94 224, 5025550, 201 

FOR Z = 240 TO 252 : READ A: POKE Z,A : NEXT 
POKE 260,240 : POKE 261,0 : Z=USR(0) 

IF PEEK(255) = 0 THEN 280 


IF PEEK(255) = 83 THEN T=0 : GOTO 290 
IF PEREK(255) = 65 THEN T=2 : GOTO 290 
GOTO 280 

GOSUB 1400 


IF AA=1 THEN 370 

PRINT CHR$(12); 

REM Set random buildings 

FOR Z = O TO 31 

A=INT(RND(1)*10+1) 

FOR W = 28 TO 28-A STEP-1 

J =Z*2+W*64-3968 : POKE J,195 : POKE J+1,195 
NEXT : NEXT 

REM Set base 

FOR Z = 0 TO 63 : POKE Z-2112,196 : NEXT 
REM Set random location of enemy guns 
FOR Z = 1 TO 5 


390 A=IW?(RND(1)*32) : B(Z,1)=A¥*2 

400 IF PEEK(A*2-2112)=202 THEN 390 

405 POKE A¥2-2112,202 : POKE A*2-2111,203 
410 NEXT 


415 REM Set variables : X,Y=plane co-ords;FU=fuel left 


416 REM CC=clusters left;FG=forward fire left 


420 X=2 : Y=1 : A=0 : B=0 : CC=5 : FG=5 : D=0 : 


FU=300 : EF=0 ;: G=0 


430 J=X+Y¥*64-3968 : POKE J-2,192 : POKE J-1,193 


440 POKE J,193 : POKE J+1,194 

445 REM Start game : Scan keyboard 

450 POKE 260,0 : POKE 261,0 : Z=USR(0) 

460 IF PEEK(255)=0 THEN 700 

470 ON PEEK(255) GOTO 490,500,510, 520, 530 

490 A=-1 : FU=FU-10 : GOTO 700 

500 A=1 : GOTO 700 

510 IF B=1 THEN 700 

515 B=1 : GOTO 620 

520 IF B=1 THEN 700 

521 IF CC=0 THEN 700 

522 B=1 : CC=CC-1 : C=1 

525 GOTO 620 

530 IF FG=0 THEN 700 

535 FG=FG-1 : XX=X+2 : YY=Y 

536 IF XX=64 THEN XX=0 : YY=YY+1 

540 IF YY=29 THEN YY=28 

550 FOR Z = 1 TO 10 

555 J=XX+YY*64- 3968 

560 POKE J,45 : POKE J+1,45 

580 POKE J,32 : POKE J+1, 32 

590 XX=XX+2 : IF XX=64 THEN XX=0 : YY=YY+1 

600 IF YY=29 THEN YY=28 

610 NEXT : GOTO 700 

620 IF Y‘>28 THEN 670 

630 FOR Z = 1 TO 5 

640 IF B(Z,1)=X AND B(Z,2)=0 THEN B(Z,2)=1 : 
EG=EGt1 : GOTO 660 

650 NEXT : B=0 : C=O : GOTO 700 

660 POKE X-2112,32 : POKE X-2111,32 : B=0: C 
GOTO 700 

670 J=X+(Y¥+1)*64-3968 : IF J=195 THEN D=1 

680 E=X : F=Y+1 

690 POKE J,197 : POKE J+1,198 

700 J=X+Y¥*64-3968 : POKE J, 32 : POKE J+1,32 

710 POKE J-2,32 : POKE J-1,32 : POKE 255,0 


720 X=X+2 : IF X=64 THEN X=O : Y=Y+1 : FU=FU-10 


725 Y=YtA : A=0 
730 IF Y 28 THEN 750 
740 Y=28 : G=G+1 : IF G=32 THEN 1380 


750 J=Xt+tY¥*64-3968 : IF PEEK(J)=195 THEN POKE J,199 : 


POKE J+1,199 : GOTO 1260 
760 POKE J-2,192 : POKE J-1,193 
770 POKE J,193 : POKE J+1,194 
780 PRINT CHR$(17)3;"Fuel left =";FU;" 
Clusters left ="5CC; 
785 PRINT" Forward fire left =";FG 
790 IF FU=0 THEN 1200 
800 IF EF=1 THEN 850 
810 EF=1 : IF EG=5 THEN EF=0 : GOTO 910 
820 W=INT(RND(1)*5+1) : IF B(W,2)=1 THEN 820 
830 W=B(W,1) : U=28 
840 GOTO 870 
850 J=WtU*64- 3968 : POKE J,32 : POKE Jt1,32 
860 U=U-1 
870 IF U>Y THEN EF=0 : GOTO 910 
890 IF W=X AND U=Y THEN 1260 
900 J=WtU*64-3968 : POKE J,200 : POKE J+1,201 
910 IF B=0 THEN 450 
920 J=E+F*64-3968 : POKE J,32 : POKE J+1,32 
930 F=F+1 : IF F 29 THEN 990 


940 FOR Z = 1 T0 5 

950 IF B(Z,1)< > E OR B(Z,2)=1 THEN 970 

960 POKE E-2112,32 : POKE E-2111,32 : B(Z,2)=1 : 

EG=EG+1 

970 NEXT : B=0 : IF C=O THEN 450 

960 FuP-3 : GOTO 1020 

990 JoB+tF*64-3968 : IF PEEK(J)=195 THEN 1020 

1000 POKE J,197 : POKE J+1,198 

1010 GOTO 450 

1020 J=E+F*64-3968 : POKE J,199 : POKE J+1,199 

1030 POKE J,32 : POKE J+1,32 

1040 IF C=1 THEN GOSUB 1060 

1050 F=F+t1 : D=D+1 : IF F=28 OR D=4 THEN B=0 : C=0 : 
D=0 : GOTO 450 

1060 IF E=0 THEN 1100 

1070 POKE J-2,199 : POKE J-1,199 

1080 POKE J-2,32 : POKE J-1,32 

1090 IF E=62 THEN RETURN 

1100 POKE J+3,199 : POKE J+2,199 

1110 POKE J+3,32 : POKE J+2, 32 

1120 RETURN 

1195 REM Crash and explode routine 

1200 J=X+Y*64-3968 : POKE J-2,32 : POKE J-1,32 

1210 POKE J,32 : POKE Jt+1,32 

1220 Y=Y+1 : IF PEEK(J+64)>194 then 1260 

1230 POKE J+62,192 : POKE J+63,193 

1240 POKE J+64,194 : POKE J+65,194 

1250 GOTO 1200 

1260 FOR Z = Y-2 TO Y+2 

1270 FOR W = X-2 TO xt2 

1280 POKE WtZ*64- 3968, 210+INT(RND(1)*5+1) 

1290 NEXT : NEXT 

1300 FOR Z = 1 TO 100 

1310 POKE -368+INT(RND(1)*40+1) ,INT(RND(1)*256) 

1320 NEXT : PRINT : PRINT"You lost!!" 

1330 PRINT : PRINT"Do you want to play again ? Y/N" 

1340 POKE 260,240 : POKE 261,0 : Z=USR(0) 

1350 IF PEEK(255)=0 THEN 1340 

1360 IF PEEK(255)=89 THEN RDM 

1370 END 

1380 PRINT : PRINT"You landed!! Congratulations! !" 

1390 GOTO 1330 

1395 REM Routine to let you make your own landscape 

1400 PRINT : PRINT"Do you want (R)andom buildings or 
(Y)our own?" 

1410 POKE 260,240 : POKE 261,0 : Z=USR(0) 

(420 IF PEEK(255)=82 THEN AA=0 : RETURN 

1430 IF PEEK(255)=89 THEN 1440 

1435 GOTO 1410 

1440 PRINT CHR$(12);"Give height (1-9)" 

1450 FOR Z = O TO 31 

1460 POKE 260,240 : POKE 261,0 : Z=USR(0) 

1470 IF PEEK(255)=0 THEN 1460 

1480 IF PEEK(255)<49 OR PEEK(255)>57 THEN 1460 

1490 A=PEEK(255)-49 

1530 FOR W = 28 TO 28-A STEP-1 

1540 J=Z*2+W*64-3968 : POKE J,195 : POKE J+1,195 

1550 NEXT : 

1560 AA=1 : RETURN 


0000:01 Fx 10 LD BC,10FE sKeyboard scan routine 
0003321 2F 01 LD HL,012F sResults stored in loca 
OO006:ED 41 OUT (C),B ; 0100-012F. tions 
0008:ED 78 IN A,(C) 

OOOA:F6 EO OR EO 

000C: 2F CPL 

000D: 77 LD (HL),A 

OOOR: 2B DEC HL 
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ae ee eee > OOOF:10 F5 DINZ F5 
0011:3A 21 01 GD: Ay O121) cist. TAY (Cup)? 
Sorcerer OO14:FE 04 CP O4 
0016:C2 1F 00 JP NZ,OO1F ;no,try again 
0019: 3E 01 LD A,01 syes,save itin location FF (255) 
001B:32 FF 00 LD (OOFF),A 
MISSION 001E:C9 RET ;return to basic program 
OO1F:FE O02 CP 02 sie 2t. 12" (down)? 
IMPOSSIBLE 0021:C2 24 00 JP NZ,O02A sno try again 
00223:3h “02 Te AQ ;yes save it 
0026: 32 FF 00 LD (OOFF),A 
0029:C9 RET sreturn 
GCO2AS3A 26-01 LDr Ay t0t2C) sis it '1' on keypad (drop bomb)? 
OO2ZD:FE 02 GP U2 
O02F:C2 38 00 JP NZ,0038 sno try again 
0032:3E 03 LD A,03 ;yes save it 
0034232 FE 20 ED: (OOPP )igih 
0037:C9 RET ;return 
0038:3A 2D 01 LD A,(012D) sis it '2' on keypad (drop cluster)? 
OO3B:FE 02 Cee 
O03D3G2 46-00 JP NZ, 0046 sno try again 
0040:3E O04 LD A,O4 syes save it 
00242332 TF 00 LD (OOFF),A 
OOAS2C9 Rel sreturn 
0046:3A 2E 01 LD A,(012E) sis it '3' on keypad (fire guns)? 
OO49: FE 10 CP 10 
0O04B:CO0 RET NZ ;no,return 
0040: 3E 05 LD A,05 syes save it 
OO4E: 32 FF OO LD (OOFF),A 
0051:C9 RET ;end of program,return || 


10 REM SPIRO 

20 CLSS$=CHRS(26):PRINT CLS$; CLEAR SCREEN 

30 PRINT’This program draws circular patterns similar to those produced 

40 PRINT"by the ";CHRS(34);°SPIROGRAPH”; CHRS(34);" game. The plotting 
commands are 


50 PRINT" suitable for the ROLAND DG DXY-100 and DXY-800 series of plotters. 


70 PRINT"The program requires 5 items of input. 

80 PRINT” 1. Large Circle Radius. This is the radius of the gear wheel that 
90 PRINT" normally would be pinned to the drawing surface. 

110 PRINT” 2. Small circle radius. This is the radius of the gear wheel 


into which 
120 PRINT” 
130 PRINT” 
150 PRINT” 


Enhancements include 
changing the shape of the ‘big’ 
circle to an ellipse or some 
other function or inserting an 
auto-incrementing loop to rotate 
a pattern. It would also be pos- 
sible to add another ‘circle’ to 
the structure. If R2 is the radius 
of this circle, then calculate SJ 
as for Sl, but from R1 and R2, 


the pen is inserted and which rolls around the circumference of 
the large circle. Despite the names, the small circle radius can 
be either smaller or larger than the large circle. For practical 
purposes the radius can be considered as the number of teeth 

in the 


160 PRINT" circumference. Notice that the ratio of large circle radius to 
P ; 170 PRINT” small circle radius determines the number of iterations needed and then calculate QX and QY 
Spiro IS a program that draws 180 PRINT” before a pattern returns to its starting point. as for PX and PY. 
ppeae . 190 PRINT" Note that the small circle radius can be negative. This means 
patterns similar to those pro 200 PRINT" that the small circle rolls around an inside circumference. In The pattern here was produc- 
duced by the well-Known 210 PRINT" this case the pen position radius must be less than the large ed with the sequences 250/50/ 
‘ . ’ ‘ 220 PRINT” circle radius. 
Spirograph’ game. It will draw 230 PRINT’HIT ANY KEY TO CONTINUE"; I$=INPUTS (1) 250/1/0,250/50/150/1/0 and 
all patterns that use two wheels, 240 PRINT CLS$; 250/50/50/1/0. 


250 PRINT” 3. Pen position radius. This is the distance from the centre of the 


with the second wheel either in- 


; ; ; 260 PRINT" small circle at which the pen will be placed. This can be 
side or outside the first one. In _greater Jeff Richards 
addition, it allows the pen radius 270 PRINT uae the radius of the small circle, to create effects not Jamboree Heights Qid 
in the second wheel to be out- 280 PRINT” with the original game. 
side the circumference of the 290 PRINT” 4. Number of iterations. The number of times that the small 

circle is 
wheel. 300 PRINT" to complete a circuit of the large circle. 
It is written in Microsoft ase eel 5. pina ada ele mage - ea the fom op aaa Cen 

BASIC-80 (MBasic) but does aaa la a 

not use any special commands, 330 ON a plot. This is used in repeated patterns to “walk” 
so should be easily portable. 340 PRINT” pattern around. For single patterns, use 0. 

i i j 350 PRINT: PRINT 
Like most Basics, MBasic does 390 PRINT"HIT ANY KEY TO START”; IS*INPUTS(1) 
its transcendental functions in 400 PRINT CLS$; 


radians, so the program has a 1000 ANGLE=3.141597200000001#/180 


1010 INPUT " LARGE CIRCLE RADIUS = “,RO 
conversion function (ANGLE). 1020 INPUT “ SMALL CIRCLE RADIUS = “,R1 
1030 INPUT " PEN POSITION RADIUS = ",R 

It uses only two commands in 1040 INPUT “NUMBER OF ITERATIONS = “,N 


the plotter. ‘Mx,Y’ means move 
to position X,Y and ‘DX,Y 
means draw a line from the cur- 


1050 INPUT ' INITIAL OFFSET = ",T 

1060 DISPL*600 “OFFSET. ADJUST FOR YOUR PLOTTER OR PATTERN SIZE 
1080 F=0 

1090 FOR TH=0 TO 360*N 


r ae +i 1100 CX=(RO+R1)*COS( TH* ANGLE) : CY=(RO+R1)*SIN(TH® ANGLE) 
ent pen position to position 1110 SI=TH:IF R1<>O THEN SI=TH*(RO+R1)/R1 
X,Y. The pattern will be cen- 1120 IF S1>360 THEN SI=SI-360:GOTO 1130 
1130 PX=CX+(R*COS( (T+S1)*ANGLE) ) : PY=CY+(R*SIN( (T+S1) *ANGLE) ) 
tered 600 units along the X and 1140 PX=PX+DISPL: PY=PY+DISPL 
Y axes, but this can be changed 1150 Xl=INT(PX):Y1=INT(PY):GOSUB 1200 


1160 NEXT TH’ 

1170 GOTO 400 

1200 IF F=0 THEN LPRINT "M";X1;",";Yl “MOVE TO (X1,Y1) 
1210 Fel 

1220 LPRINT “D";X1;",";Yl “DRAW TO (X1,Y1) 

1230 RETURN 


with one line in the program. 
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HANGMAN 


Hangman should work on the 
Model | and, with small modifi- 
cations, any other machine. The 
normal rules of hangman apply, 
however, if requested, there is 
a time limit applied to each 
guess. If a key is not pressed 
in time a move will be lost. As 


can be introduced by simply 
adding more data lines, be- 
tween lines 180 and 210. SE$ 
contains the hidden word and 
DI$ contains the displayed 


word, for example RA--l-. TI 
contains the time limit and its in- 
itial value can be altered by 


you win or lose the time limit editing line 60. 
changes to make it more diffi- 
cult or easier. 

Obviously many more words 


10 PRINT "HANGMAN","By R.Tooth 1982" 
u 


30 PRINT "ANY KEY TO CONTINUE" 

40 IF INKEY$=""" THEN 40 

50 PRINT"DO YOU WANT A TIME LIMIT (Y/N)" 

60 Y$=INKEY$:IF Y$="Y"' THEN TI=800 ELSE IF Y$="'N" 
THEN TI=90000 ELSE 60 

70 RESTORE:ON ERROR GOTO 70 

80 T=0:Y=#0:H=0:FOR LP=! TO RND(30) 


90 READ SES$ " SE$ CONTAINS HIDDEN WORD 
100 NEXT LP 
110 CLS " SET UP SCREEN 


120 PRINT @ 136,CHRS$( 175) 

130 PRINT @ 137,STRINGS( 12, 143) 

140 FOR LP=! TO 9:PRINT @ 148+(LP-1)*64,CHRS( 191); 
150 NEXT LP 

160 PRINT @ 718,STRINGS( 12, 143); 

170 Y*1:H=64:PRINT @ 200,CHRS( 138); 

180 DI$=STRINGS$(LEN(SES) ,''-"') ' DI$ CONTAINS DIS 
PLAYED WORD 

190 DATA BLACK,HELLO, CHAIR, DISCOVERY, IMAGINATION,T 
OE , OPERATION, LANGUAGE , EQUIPMENT , ASK, AGENCY , AQUIRED 
, IF, QUARTZ, SHALLOW, DYE, FRIGHT , PITCH, CUBICLE, TURTLE 
, LION, CAT, INCREDIBLE, RABBIT , YACHT , TELEPHONE 
200 DATA CLOCK, STAPLER, QUILT, INGENIOUS, IT, TYRE, HAP 
PY,HAND,WICK,MISSIPI,WINDOW, PSYCHIATRIST , WITHDRAWL 
, OBJECTIVE, FIX, LOWER, COMPLEX, SENSE, ELECTRICITY, HIG 
H, QUADRANT , TWO, AND, YOGHURT , QUICKLY , LABORATORY , YEST 
ERDAY , BLIMP, HYDROGEN, CHEQUE, SKI , AQUA, BOG 
210 PRINT @ 900,DI$; 
220 IF DI$=SE$ THEN GOTO 450 ' HIDDEN WORD DISCOV 
ERED 
230 PRINT @ 964,""; 
240 FOR LP=1 TO TI:CS=INKEYS:IF CS$("['' AND C$)"@" 
THEN 270 
250 NEXT LP 
260 CS=" " 
270 LS$=CS$+"," 
280 PRINT @ 970+T,LS; 
290 F=0:T=T+2 
300 IF INSTR(1,SE$,C$)=0 OR INSTR(1,DI$,C$)()O THE 
N 350 
310 F=INSTR(F+1,SE$,C$) ' F CONTAINS POSITION OF 
INPUTTED KEY IN WORD 
320 IF F=0 THEN GOTO 210 
330 MIDS(DI$,F,1)=CS$ 
340 GOTO 310 
350 IF Y=7 THEN H=128:FOR LP=0 TO 9:PRINT @ 260+LP 
*64,"' "s :NEXT LP:FOR J=! TO 2:PRINT @ 524+ 
J*64,CHR$(191);:NEXT J:PRINT @ 264,CHRS$(138);:PRIN 
T @ 200,CHR$(170);:PRINT @4,"Y OUR HANGE 
D!":TI=TI+8*Y:PRINT@900,SE$; ' HANGED 

360 IF Y)O THEN PRINT @ 199+H,"('')"; 

370 IF Y)1 THEN PRINT @ 263+H,CHRS( 156) ;CHRS( 191); 
CHR$( 157) ;CHRS( 148); 

380 IF Y)2 THEN PRINT @ 326+H,CHRS( 136) ;CHRS$( 133); 
CHR$(191);CHRS$( 149) ;CHRS$( 141); 

390 IF Y)3 THEN PRINT @ 391+H,CHRS( 168) ;CHRS( 143); 
CHRS$( 173); 

400 IF Y¥)4 THEN PRINT @ 455+H,CHRS(142);" '";CHRS(1 
38) ;CHRS( 132); 

410 IF Y=7 THEN 470 

420 IF Y)5 THEN PRINT @ 517+H,STRINGS(8, 131); 

430 Y=¥+!1 " Y CONTAINS NUMBER OF INCORRECT GU 
ESSES 

440 GOTO 220 

450 PRINT:PRINT ''CONGAGULATIONS!! YOU GOT IT" 

460 TI=TI-(10-Y)*10 " ADJUST TIME FACTOR 

470 PRINT @ 1000,"PLAY AGAIN?"; 

480 BS=INKEYS:IF BS='''' THEN 480 ELSE IF BS()"N" T 
HEN 80 

490 PRINT:PRINT "HEARTLESS BEAST" 

500 END 
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SHUFFLE 


Here’s a fun little program to 
keep you and your mind oc- 
cupied on rainy Saturday after- 
noons or on that long business 
trip interstate. Written for the 
Model 100 TRS-80, it is a 
number-shuffle game which 
scrambles a line of digits and 
dares you to put them in their 
correct order. Ten digits are 
placed, in jumbled order, in a 
line. Your job is to ‘shuffle’ them 
by reversing part of the 
sequence, eventually to have all 
ten digits in the order 
0123456789. 

After enduring the title pages 
and _ introductory _ instructions 
(housed in the subroutine from 
line 260 onwards) you are 
greeted with a rather sparse 
screen holding only three 
pieces of data — a counter stat- 


2 REM = Studs le = 

& REM ~ N. Fredebon, 1983 
Pr hes 

BG SEC=VAL (RIGHT (TIMES, 2) ) 


ing what move you are up to, 
the jumbled line of numbers and 


-an input prompt asking you 


which digit you'd like to reverse 
from. When you enter a number 
between 1 and 410, the 
sequence from that number to 
the end is totally reversed. For 
example, if you enter 4 then the 
first four numbers will remain as 
they are and the rest of the line 
will reverse its sequence. If 7 
was in position 4, it is now in 
position 10. 

| hope you enjoy the pro- 
gram. You might like to improve 
it by adding letters in the 
sequence. Have fun! 


Neville Predebon 
West Preston Vic 


Y FOR SPUR=1 TO SEC: INIT=RND(1): NEXT SFUR 


LO MOVE=1: Age" 
{S WOSUB 260 


“2 FOR NUM=O TO 9 
“TO L=INT CRND (1) #10) +48 
40 (l= 1 


BO TF MID$(A8,O,1)=CHRE(L) THEN 30 


560 IF GQ) NUM THEN @=@i+1: GOTO So 


YO Ab=AS+CHRS CL) 
so NEAT NUM 


Oo SOUND 1415.5: SOUND 1523,72: 


SOUND 1415,5 


OO FRINT » 127, "Move nmumber":sMOVE:;": "ss: FRINT At 


LO FRINT » 209, "Reverse from number's: INFUT REV 
‘ty TF REV 1 OR REV?9 THEN 110 


{ 
| 
L. 
130 Bee" 
140 FOR SHUFFLE=10 TO REY STEF ~1 
[50 LS=HhS+M TDS (At, SHUFFLE, 1) 
150 NEXT SHUFFILE 
170 AS=lEP TS (AB, REV-1) +H 
haan oT RF ABE VOLS TASS 7A9" THEN 
190 MOVE =MOVE+1L: GOTO 90 
a), CLS 
Slo RINT » 55,A% 
‘O FRINT » 124,"YOU DID IT!!!" 
JOO PRINT: FRINT TAER(9) s "It took you":MOVEs: "Moves! '." 
~4O FOR FIN=O 10 15: SOUND 1660, 3: SOUND 1975, 3: NEXT FIN 
J) FOR DELAY=0 TO 99: NEXT DELAY: FUN 
‘oO PRINT: FOR TITLE=1 TO 8: SOUND INTORND (1) *200) +1100,5 
“790 PRINT "“shuff's: FOR DELAY=0 TO 29: NEXT DELAY: NEXT TITLE 
L380 FOR DELAY=0 10 99: NEXT DELAY 
SFO PRINT: FRINE "This 16 a game of logic. You have to try"; 
OO PRINT "to get the numbers an their proper order": 
‘LO PRINT TARCQ a "by “reversing” part of the sequence." 
SO PRINT TARCS) 3s "Don t rush at - you’ ve got forever!!!" 
VO FRINT »@ 290,"hit ary key to begin"; 
“FO TF INREY 62 "" THEN 749 ELSE CLS: RETURN 


THE SCRAMBLER 


CLOAD PRG1 <THE SCRAMBLER> 


PRINT PEEK(16633) 


IF >= 2 THEN POKE16548,PEEK(16633)-2: POKE16549,PEEK(16634) 


IF = 0 OR 1 THEN POKE16548,PEEK(16633)+254: POKE16549,PEEK(16634)-1 


CLOAD PRG2 <YOUR PROGRAM> 


POKE16548 ,233: POKE16549,66 


1 CLS: ?"THE ,SCRAMBLER«SECURITY,SYSTEM": ? 
"WRITTEN .5-1-83, BY,ROBERT,E.«. YOUNG": ?"VE 
RSION,1.6":?:? 

2 INPUT" ENTER.FIRSTs SECURITY «NUMBER «(FRO 
M1 46TO2200)";A: INPUT" ENTER «SECOND sSECURI 
TY. NUMBER 2( FROM 41,.T0.425)";B: INPUT" ENTER» 
THIRD,SECURITY, NUMBER ,(FROM,1.4T0425)";C 


3 FORD=17694TOPEEK( 16633 )+256*PEEK( 16634 
): IFPEEK(D)=0,D=D+5 


4 E=PEEK(D)+A-255 

5 IFF/B=INT(F/B) ,E=E+B 

6 IFF/C=INT(F/C) ,E=E+C 

7 IFE<0,E=E+255 

8 IFE>255, E=E-255 

9 ?F:POKED,E: F=F+1:NEXT: IFPEEK(17433)=20 
6 ,POKE17433, 205: POKEL7435 , 206: POKE17459, 
205: POKE17481, 205: ?"DECODING, COMPLETE": E 
ND: ELE 3POKE17 433 , 206 : POKE17435, 205: POKE1 
7459, 206: POKE17481, 206: ?" ENCODINGsCOMPLE 
TE": END 

10 REM $ APPEND OR WRITE PROGRAM HERE $ 
11 REM * 

12 REM * 

13 REM * 

14 REM * 


15 REM * 


LISTING 1 


NOTE - « REFERS TO A SPACE. THIS PROGRAM 


MUST BE TYPED EXACTLY AS IT IS SET OUT IN 
ORDER FOR IT TO WORK CORRECTLY!!! 


An unbreakable, triple A secu- 
rity system for the Level 2 TRS- 
80 and System 80 computers. 

Scramble your programs so 
that when they are loaded they 
cannot be executed without the 
correct passcode. 

Firstly, type in or append your 
program to LISTING 1, begin- 
ning it at line 10. When you are 
ready to save your program, 
type RUN and enter three secu- 
rity numbers. THE SCRAM- 
BLER will go to work, encrypt- 
ing everything beyond line 9. 
This can then be CSAVEd with- 
out any fear of someone else 
running or listing it. 

When you decide to work on 
your program next, load and run 
it and then enter the same three 
numbers. Your program will be 
decoded back to its original 
state. 

There are 125,000 different 
combinations so it is highly un- 
likely that anyone who doesn't 
know your numbers can crack 
it. But, don’t forget the numbers 
since if even one of the num- 
bers is slightly out, the decoding 
will make your program even 
more obscure. Line 0: This is 
free so you can enter — 0 
GOTO 10. Typing this will make 
sure your program is not en- 
coded while you are debugging 
your program. To scramble your 
program, just delete 0. 

Robert Young 
Thornlie WA 


WAGES, SALARIES, TAX & APPORTIONMENTS 


This program can be adapted to 
any small business where staff 
and materials are involved. 
Names of employees and 
hourly rates of pay can be eas- 
ily changed. If there are less 
than ten employees enter zeros 
or merely press the ENTER 
key. If there are more than ten, 
then alter the appropriate lines 
i.e. 2000 FOR N1 to 10 ete. 
Names, amounts and descrip- 
tions can be altered at will pro- 


vided the rules of syntax are ob- 
served. To run the program as 


it stands it is only necessary to 


enter 


the number of hours 


worked in each category as the 
computer asks for them, enter 
zero or pass. However in the 
apportionments a careful as- 


sessment of 


percentages 


should be made and the total 
must be 100 per cent. Where 
no work is carried out a zero 
must be entered. 

Upon running this program 
you will be asked two ques- 


tions: 


“what is the total amount 


allocated for this project?” and; 


QAQ CLT 
BOS PEM Ry ROTERT Vay CARTEL... 
RAT PEM 132a7 
Q1@ PRINT" WAGES SALATIES TAX AND APECORTIONMENITS ||. i 
R20 PRINT" --~---~--------~--~-~------~--~~---~----~+----------- " 
830 PRINT 
B40 PRINT"THIS PROGRAMME Cay SE ONRPTED To SUIT Qh foRM oF oN x . 
BQ PRINTNSMAL BLISTNESS ACCOUNTING HERE STAFF Ie EMPLOVEN” Boer ea ede Ce ee. 2 ae, 
REQ PRINT"AND MATERIALS LISEN, ; Oe eee ye aie ee 
Q92 PRINT SABA IF GWM > =< SAO THEN T= ELSE T=3R2 
994 PRINT 2100 IF GHCH > eee eee EL 3€ san ae ee i £4 
BE TNTH THE EAL MutNe te eas i S120 TOM .SGHCMO#T 180 CMISTHTC TOMEI OO+. SLAM : TTsTT+TOH) 
ee aia = | Sanur re Seer irse F140 HUCK ECE -TOH ° GOSUR 9200 
Be er oes aoee aH ‘ Cee tar apeneT mee 
='"¢ ; " : =H{rnaree wt e="' o I 42 OL 5 pr a ola ONES, eT Ee a" 
=p a Bate ed © nee ae ea eee 4020 PRIHT"PLEASE INSERT APPROPRIATE PERCENTAGES PELT -" 
938A FOR Hei TM 12 PEAR REE HS HEMT 4030 PRIHT'CURREHT LABOUR COST CALL CATEGORIES > 2°: 76 
1980 DATA #50 =,$20 =.910 = ¢% =.€2 =. 41 =.52 CENT =.20 CENT = eOee CRIMI: FE ly ACE eee Rian eee: 
{OQ CENT =.8 CENT =s,2 CEWT =.41 CENT = 404% FOR Het TO & PRINT. APSO." "2 BES bd MET 
192@ FOR Hel TO 7 READ APE hS HEMT 40982 FOR Hoe 1 Th AEC HM = MET 
1840 DATA 1. CLEARING. 2. EARTHIIORKS, 2. NRATNAGE.4, CULVERTS. =, peice 
FORMATION. €. SURFACING, 7. RESERVE FUND ALES Foe 2 eb ee 
1960 PRINT PRINTCHRE? 230" 0.0.00... SHIPE NE HANSA, LLL, "PRINT 4140 PRINT® 704. "PROGRESSIVE SAGE ~ "iG | 
1OBA PRINT” UNRESHEET ORR THT 4160 PRIMTAPS¢2> © THRUT @ Crt yeToeR- TAB AG Py SMES TC ZY 
11@@ PRINT" PROJECT HIMBER 17/82": PRINT ee ear eres 
1140 FOP 9 = 1 TN 49Q@ > NEXT 4212 FOR Q = 1 TO 490 = HEMT 
1160 CLE: PRINT PRINT: IMPUT"ENTER TOTAL CONFIRMED COST OF PROJECT": TRact: 4228 CLO = PRINT "DATA PROCESSING HRS BEM COMPLETED. " 
11A@ PRINT: INPUT"EMTER PERCENTAGE ESTIMATED FOR LABOUR" P Aca PRINT THPORMAT TOM 3S PVA TLABLE AS FOUL ois. °™ 
12UQ TRH 2 TRE 1 O*KF- {Aa RAMS 7 = TRESS 5H1 ORL AA $260 PRINT: PRINT. "1. HAURS WARKED AND VALUES" 
1220 TRAC 3 .=TAHC 1 0-TRAC 2) ° TRAC 2 .@TRel 2 )-RAHC7) 4280 PRINT."2. WAGES AND TAMAT TON” 
1240 CLE: PRINT: PRINT" YOUR LABOUR BUDGET. LESS RESERVE. Ie :"; 43009 PRINT". SCRUMULATED LABOUR tnsTe” 
:PRINTLISINGDS: TRMC 2 4320 PRINT. "4, CURRENCY TABLE" 
1260 PRIMT'ENTER THE PERCENTAGE ESTIMATED FOR FACH CATEGORY ©": PRINT 43428 PRINT. "2. EXPENDITURE" 
1260 FOR Nel TO 6 PRINT APSON > HEMT = PRIHT 4360 PRIHT."€, ORIGINAL BUDSET" 
130@ PC#Q :) FOR Hel TO ¢ 4388 PRINT. "7, ARFAY STORAGE" 
1320 PRINTR704. "PROGRESSIVE “AGE = "GPC 4400 PRINT : PRINT'PLEASE PRFSS THE REQUTREN NIIMBER, " 
1340 PRINT APSO) = INPUT Wo PROM ell © BRAC MTS 2 ELI 100 4420 ESelHKEY® © IF Ege"" THENAA20 
1368 PC = PC+W °° NEXT 4440 ON VAL“ ES? GOTO SAAN. shar. FA90. 48500. 7I9R. 7AM. RAED 
138@ CLE: PRINT" YOUR BUOGET HAS BEEM ASSESSED AS FOLLOWS ©": PRINT "A090 CLS: PRINTRT? . "PLEASE FHTER EMPLOYER ’S NUMBER 
1400 PRINT. "TOTAL COST ©": PRINT LUSINGDS: TRAC 1S SA29 TMPUT EM 
142@ PRINT. "MATERIALS =": PRINT. USTHGDS: Tae 32> 5Q42 CLS PRIM Sa vey 
1440 PRINT’ TOTAL LARQUR ©"; PRINT. USINGD®: TREC 2S SQCQ PRINT. "CATEGORY". "HOURS WORMED!" VALUE CRegee >" 
1460 FOR Nel TO 6 ° PRIHT ARSON) PRINT. @IHGDe BAM NH); SAGA FOR ¥ = 1 TM 19 
IAQ PRINT. CEOS. HOEN. #D. 
‘PRINT. PCON "4" «NEST S120 PRINTUSINGDS LICEM. So 0 HEMT 
148A PRINT. APS! 75; (PRINT. USIMNGEOS; BAM PD: PRINT. A” "(20 PRIHT. "TOTAL o PRINT. LISTHGDe: Chic ERI 
150@ PRINT@S32, "PLEASE CHECK. TO ALTER. PRESS a, Si4Q PRINT ° GOSUIR 11900 
TOMTIMUE WITH ANY OTHER “EY, « S160 EM=THKEYS TF Efe" THEN S169 
120 ESeIHKEYS © TF Ege" THEM 1820 ELSE TF FeecHRece™) “1SQ ON VALCES> GOTO S9aa. s80m.E900. 6590, "AAG. TEAM ROAD 
THEM 1180 ELSE 2aae “SOQ CLS © PRIHT TABCIS "WAGES AND TAXATION” 
2000 FOR Het TO 18° RERO HEON) © HEXT SS2Q PRINT." GROSS LAGE”. "TAY PAYAPLE "HET WAGE" 
2020 DATA 1.FISHER JOHN. 2. ARTHUR JAMES. 9. 9VES SIMON. 4, S™40 FOR H=1 TO 12 
STEED -PRIULs 3. DRY TERRENCE. "SEQ PRINTHNEO HO: PRINT. USTNGDS GHOM SS TYAS SLICK 2 HEMT 
B.WILLIAMS ALB. 7.ARKWRIGHT 1... JOHNGON So 8, STSQ PRINT" TOTALT 9": PRINT USTHEDS: TG. TTINT © PRINT 
AMNe CAPL.1O8.TREDOS ERICA SEAM SOSIP 11888 
O40 FOR Ho = 1 TO 19 > READ CECN>). POND 9 HEMT 620 Ef2INKEYS © IF Eee"" THEN Seca 
2Q68 DATA LABOURER... 2%. QURRRYMAN. SO. HAMMER 2 DETLI EL Pm, SE4Q CN VALCES) GOTO SOOO. S8AR.EOI9. SHEA, 7AAM FEAD BAM 
SCOOPMAN. 6,65. POWDER EAPO CLO = PRINTTPRS 22°" CURRENT LABOUR cnheTS" 
MOHKEY 7 .O. TRUCK DRIVER 9.90. GRADER DRIVER. @.28 CARPENTER. 7.18 FO20 PRINT CATEGORY" 9" HOURLY PETE. "ener To PATE” 
SECRETARY 7.90.F FOAM FOR Ho = 1 TO 18 
OREMAN, @, 2 FAL PRIHT Cech  PRTEIT HOTHEM@ ROMY: -PRIHT OT MEME LAO bE MT 
FARA GNSUR 1AgAe EAGA PRIHT'TATAL =":  PRIHT. SHETHEMS > TE 
2198 CLE 9 PRINT ENTER HOUIPS LINRKED IN EACH CATEGORY” Soin cuibe aera aaa rience aces 
2129 DIM HO1D.189.We18 18> Tee FOR N= 1 TR IO oe et HEMT ae ns ek te 
s140 FOR Nei th (2 6140 OH VALS ES) SOTO Saae Sea. cAAA. cmAD FAeA ~RAD SHOP 
Z16Q PRINT PRINT!HOLIPS WORKED By "oHerby, © ey ee ee ee 
2iSQ FOE M = 1 70 12 Cee ae Pe tee Ge Oe ar te 
220A PRINT CaeMn 8 ESA PRINT © PRINT HNe. Coe 
2200 INPUT HOH OMS | MEST ENER FOR Me} TO © 9 PRINT Bmere gars MRE Mae) OarM4e MET 
TOOA Clie © FOR w& = 1 TO 10 ESS VEAAC 1 HN OL AACS UHDRLAOS DHL OLA’ 4 eR AR ASS eH OA ES 
3O2A Mos WON NM OERONS  HISINTOUNIOOS STAR ELAR KSPR 7 ER OSAACT FSOFAR OHI O4ORT TAMER SOO! Tt Et gORT ToS 
WOH eb LE IL COM ELE Gilet Sa Chain ala 
ae id Ls 
HEXT LODO RITE Hae te gn ey 
S840 GLICH o=Cl TE=TG+Gh’ Ms TZ = JHTOTGIOO4+ Soe {OO NEXT Fe SOAR CACUR T1AAR 


128 


£668 
66989 
78a 
7828 
7248 
7AEa 
738@ 


USINGD#: BARON >-AECH > 


7188 
AECA> 
7128 
7148 
7168 
7189 
7198 
7eeQQ 
7228 
7248 
7268 
7308 
7328 
7348 
7368 
7388 
7480 
7419 
7420 
7448 
73a08 
7320 
7540 
7368 
7589 
7EAQ 


ES=INKEY? TF ES = "" THEN G&A 
ON VALCES) COTA Se@aa. S800, 69AA. SAA. 70RD, 7SAS. BOA 
é. 


RECO? = @ =: FOR N = 1 TO 6 : RECO? = AECOSECND © NEXT 
PLS : PRINTTARSC 26 2"EXPENDTTURE, " 
PRINT:PRINT"CATEGOR’"." BUDGET". "  RETUAL"." BALANCE” 


FOR H=1 TO 7 
PRINTAPS<N):; :PRINT. UISINGDS: BAMOND: PRINT. 
» NEXT 
4: PRINT USINGDS: TRC 2): PRINT. USTHGDS: 


USINGD€; PECNY: PRINT, 


PRINT: PRINT" TOTALS 


PRINT. UST NGOS: TR¥. 2 >-REC A> 

PRINT"PRESS : E - TO INCREASE EXPENDITURE ; T - TO TRANSFER 
GOSUB 112998 FUNDS.” 
ESsINnKey? IF E@="" THEN 7168 

IF ES=CHRE#¢84) THEN73@@ ELTE IF F@eCHRe¢ 69) THEN 7290 

ON VALCES) GOTO 3900. 3500. €9AN. 653A. 7AAB. 75Aq, BA00 

CLS : PRINT"ENTER ROCITIONAL COSTS IN EACH CATEGORY :" 

FOR N=i1 TO 7? PRINT APSO INPUT ECN> 


RECN SRECNI+ECND © RECOT=AECOD+ECND 
NEXT : GOTO 7aA2a 

CLS : PRINT. "TRENSFER TABLE" 

PRINT. "CATEGORY". " = EXPENDITURE". " 
FOR N=1 TO 7 

PRINT. APS¢N); -PRINT-USINGO®: RECN): -PRINT. USTNGDS: BRMCH S-AECN > 
PRINT: INPUT'ENTER NUMBERS FROM’ SND TO" EN. 2 NEWT 
INPUT"ENTER AMOUNT TRANSFERABLE": 

IF % = 7? THEN RECX) = RECK D+ ELSE BOMCM) = RAMBO HOA 

BANC 2) = RAMS 4Y 

GNTN 7A2e 

CLS «© PRINTTARC22>"TOTAL BUDGET <copY >.” 

PRINT: PRINT"YOUR BUDGET ASSESSMENT LIAS AS FOLLAWE =" 

PRINT. "TOTAL PROJECT COST ©") PRINT. USTNGDS: TREC 1> 

PRINT. "MATERIALS "PRINT. USTNGM@: TREC 3) 

PRINT"TOTAL LABQUR ©") PRINT. USINGD]: TREC) 

FOR N=1 TO 6: PRINT. ARSON 2s (PRINT. USING O@: TRAC 2 YEPCOH “100; : 


BALANCE" 


PRINT. POON: " % ": HEMT 


7628 
7648 
7E6R 
7688 
Saae 
3228 
8a49 
8a60 
82980 
81908 
81228 
$148 
21608 
$1998 
8200 


an 
3229 


FAAS 
9200 
922 

9248 
9268 


PRINT. APS6 79; PRINT. USINGDS: RAMC 7); PRINT." =" 
GOSUB 11990 


Et=Ihkeve IF E@="" THEN VEER 


et a I 


CLE : PRINT’...DATA IS STORED WITHIN THE FOLLOWING ARRAYS..." 

PRINT: PRINT" APPORTIONMENTS APSOH> = BUDGET : RACH 3" 
PRINT" JOR CATEGORIES CHON> ANTUOL EMP. QECN YM 
PRINT'HOURS WORKED HOM M > = GRASS LAE GMC NY" 
PRINT"PRY RATES/HR. ROM) 9 -NET HAGE wilde AL 
PRINT"STAFF MAMES HeeH>  - TEMATIAY ToS" 
PRINT"LABOUR COSTS LOOM) = - TOTAL EXP, AEC Oy" 
PRINT"PRQIELT COST TRAC1> = TOTAL LAROUR TREC 2D" 
PRINT'MATERTAL COST TRAC3> «= -BUINGET MAGES Toa 

GOSUB 11990 

E@=INKEYS © IF Ef="" THEN Sone 

OH VALCTe) GOTO Saae. 5899. spa0, csan, 2999. 7EA9, SAN 

END 

CLUCD) = FIMCMMCM OY © CUE LR) = ETMCCMEICMD-CLIC OD e19O+.019 

FOR Mel TO 12: CLMD=@ : NEXT PPAPZ+NWE NS 


CUE 1 SSF IMC CLIC ODO 
TF R=>20 THEN Cl Stee ree evan) 
TF R=>iO THEN CLS =F INC RIOD 
IF RedS THEY CU 4 er tees 


Ra tiie MIRAI 1 VEEN 
aia amr Oe RaQ Cll PUPA 
RaQ— Oil Ae OF 


THEN Cle SleF IMC R29 Rell Sok 2 
CUCE> = F 
IF CUCL =O THEN CLC PME TMC CLIC LS ROY CLIC LD etl 12 9-CLI Pe 
Free tte am : we Ase SOM TLE BS min va FT de mS b, Aa Te m NYO 


Ea cS 2h 
M=Q—clie 1s 
M=N—Clie +4 2 


N= THEN CULO SETHE RSD 
TF M=> 2 THEN CIC dt SSE INC OWRD 
MII as = oO 


eo Be Ps 


IE Med19 THEM Ci’ Sr=P Me O-1ed 
x baal 


FoR M= 1 TA 1 = mene oa 5 = aay ba “amt if i Se? 
ET I 
(PLS OR TNT, "PL EASE VESTS Soe Rees ** oR TNT 
tal ee ce) 
me Tt iv owe a! 4 : : PRT 1 ba : "IG T IT ti : me LA be Wiser Lod =) ¥ wr 
PRINT®TE CORRECT: PRES? AMY MEY. EF SE RE-ENTER EDT? PRES) 


PRINTSIP NECEEAARY, SLTER TAR SCOLES PEDI? seee. 319%" 
ES = INKEYS : IF ES = "" THEN (9459 TLSe RETURN 

END 

PRINT® 326."1..HRS/VALUE". "2. HAGES/“TAM". "3. LAB. COSTS" 
PRINT'4. CURRENCY". "S. EXPENDITURE". "€&.BUDCET" "7. ARRAYS": 
RETURN 

END 


WAGES AND TAXATION! 


GROSS WAGE TAX PAYABLE. HET WAGE 


1.FISHER JOHN £420.90 £134.48 £205.68 
2.ARTHUR JAMES £460.20 £147.20 #312.80 
3.1VES SIMON #420. a0 £134.40 285.69 
4.STEED PAUL £452.58 $144.80 £347.78 
S.DAY TERRENCE #326. aa #1698.32 $257.68 
&.WILLIAMS ALB. e3%24.80 Fie? 94 #356. 86 
?.RARKWRIGHT J. £465.68 #149,99 #316.61 
8. JOHNSON S$. $648.80 £207. 364 440,44 
9.AMOS CARL £756.28 £241.92 #714,a9 


18. TREDOS ERICA TEA, AD $179.28 #320.8A 


TOTALS 27. 232.98 41,674.53 #3. 552.37 
| EXPEMDITURE. 

CATEGORY BLIDGET ACTA PALANCE 
1. CLEARING 1.777.358 $323.29 #1.2%4.21 
2. ERRTHWARKS #6.221.25 #1 .8231.%2 $4,289.73 
3. DRAINAGE £398.75 £261.65 tA27 11 
4. CULVERTS 2.133.0a £627.98 41. 505.85 
3. FORMATIOH ¥1.422,aa FARE #1 .AA2_ AT 
6. SURFACING £3,322. 39 #1,.5%69, 97 #3.762.62 
7. RESERVE FUND #227 .Aaq £0, A0 F225. AA 
TOTALS £17.775. Aan $5.232.99 #12.%42,10 

CURREMC SY TABLE 

TATAL PAYOUT = * BBO. 37 

MOVES. CATHS 
£7A = ae 7A CEWT = 9 
#20 = * FA CENT = 4 
1A = é ie CENT = 2 
=, = = CewT = a 
P= = Oo COWT = 4 
${ = o 1 CCHT = A 

£ ASS? ¥ ©. 27 


“what percentage do you wish 
to allow for labour?”. Materials 
are not considered in this pro- 
gram. Allowance for this should 
be made when setting the per- 
centage for labour. 

Here is a test submission for 
the Wages or Salaries, Tax and 
Apportionments program which 
produced the printed tables. 
Total cost of the Project (includ- 
ing materials) $25,000 Percen- 
tage for labour 72 per cent. 
Hours, Categories, Wages, are 
produced from this in-put. 

1. Fisher John. Labourer 80 
hours 

2. Arthur James. Labourer 48, 
Quarryman 32 hours 


3. Ives Simon. Labourer 80 
hours 


4. Steed Paul. Labourer 54 
Quarryman 26 hours 

5. Day Terrence. Quarryman 56 
Hammer & Drill 24 hours 

6. Williams A.B. Quarryman 56 
Hammer & Drill 12 Scoopman 
12 hours 

7. Arkwright J. Labourer 56 Car- 
penter 24 hours 

8. Johnson S. Truck-driver 48 
Grader-driver 32 hours 

9. Amos Carl. Powder-monkey 
12 Foreman 72 hours 

10. Tredos Erica. Secretary 80 
hours 

Percentages allotted to each 
section (in both instances) 

1. Clearing 10% 

2. Earthworks 35% 

3. Drainage 5% 

4. Culverts 12% 

5. Formation 8% 

6. Surfacing 30% 

Total labour cost $17,775.00 


materials $ 7,000.00 _ re- 
serve $ 225.00 

Note: There is rather a long 
pause after entering the 


Employee's hours of work. This 
is due to the number of calcula- 
tions to be worked out at this 
stage. In the third repeat of the 
program on the cassette this 
has been taken care of with a 
suitable explanation which is 
not on the print-out. 


Robert van Raalte 
Nedlands WA 


POKES FOR YOUR EYES 


This program divides the screen 
into eight, numbering each 
Area; 1A, 1B, etc. Each Area 
can be called from a Menu, and 
the memory addresses for that 
area are printed to the screen. 
Thus each one-eighth of the 
screen can be ‘exploded’ to fill 
the screen with the memory ad- 
dresses for that Area. 

I've called it ‘POKES FOR 
YOUR EYES’, because that is 
what it does: puts the POKE ad- 
dresses, in full, before your 
eyes. 


Arthur Pittard 
Fairfield NSW 


180 CLS°PRINT@® 146. “a DEVELOPED BY dodaoogo" 
114 PRIHT@21@. "ARTHUR PITTARD 
36 HUBERT STREET. FAIRFIELD, 2165 
H.S.l. AUSTRALIA 
eect teresa ete a ts a 
120 PRIMNT@523,. "POKES - FOR - ‘YOUR - EYES 


TRS-S8 MODEL ITI BASIC LEVEL II 


THE SCPREEW “LAYOUT? FOLLOWS" 


1268 CLEAR See 

14A PRIHMT@7TSe. "FRESS AH ALPHABET KEY TO COWMTINUE" 
158 OF=ITHKEVYS: IF OF=""" THEM 138 ELSE 168 

166 CLS: FOR OVER=8@ TO 63: SETCOVER, 69: NEXT 

17a FOR OVER=@ TO 62: SET. OVER. 11 9:NEXT 

ae 


FOr DOWAM=@ TO 11: SET¢ 8. DOWN: HET 
FOR COWH=8 TO 11:SETC E63. DOWN os MET 
PRIHT@ISS. "THIS IS AREA ’1 A’"G 
FOR OVER=647O0127: SETCOVER. 12>: HEH 
FOR OVER=647TO127:>SETC OVER. 23 9: NEXT 
FOF CCOWH=L2TO 23: SET¢ 64. DOWH o: HEH 
FOR OOWH=l2 TO 23h: SET 127. DOU os HEAT 
PRIHT@®422. "THIS IS AREA “eS Bi"; 
FOR OVERS@TOES: SETCOVER, 24 0: MEXT 
FOF OVER=Q@TO63: SETC OVER. 35 0: HEX 
FOR OOMH=24TOS5 : SETS el. DOW oO: MEAT 
FOF OCOMH=24TO35 SET. 62. COMM 9 NEXT 
PRIMT@EdE. "THIS IS AREA “3 A’": 
FOR OVER =6+4 TO | SETCOWER. 36 0: HEMT 
FOF OVER =64 TO 127° SETC OVER. 47 3: MEH 
FO OCWM=S6 TO 47° SETO 64. DOM o: HEX T 
Fok DOWHESe TO 47° SETS 127. COW os HEMT 
PRIHT@S7A."THIS IS AREA “4 B’"; 
FOR OVER= 64 TO 12P:SETCOVER. @ 0: MEAT 
FOR OWER= 64TO127:SETC OVER. 140: HEXT 
POR OOMH= @& TO 11:SETCO 84 . COMM os MEXT 
FOR COMH=8 TO 11:SETC 127. GOW oO: MERT 
PRIHT#BiCEG, "THIS IS ARER “1 BB": 
FOF QVER=@ TO 63: SETC OVER. 120: HEXT 
FOR OVER=@ TOES: SETC OVER. 23 0: MEXT 
FOR COMWH=12 T0232: SET? A. DOWN: HEMT 
FOR COWM=1le TO 23: SETOES. DOW oO: HEMT 
FPRIHTR298,"THIS IS AREA “2 AC": 
FOR OVER=647T0127: SETC OVER. 24 9: HEX 
FOR CVER=64 TO1l27:SETCOVER. 33 0: HEMT 
FOR OOWH=2¢4 TOSS: SETCA4. COWH o HEMT 
FOR DOWM=24 TO S35: SETC Ler. DOWM >: HERT 
PRINT@S78,. "THIS IS AREA °3 Bt"; 
FOR OVWER=@ TO 63: SETC OVER, 369: HET 
FOR OVER=2 TO 63: SETCOWER. 479: HEAT 
FOR DOWH=S6 TO 47: SETC@. DOW + MHEXT 
FOR DOW =36 TO 47: SET 63. 00UH 9: HER T 
PRINT@S33, "THIS IS AREA °4 A’"; 
PRIHT@R98."% #4 4 # PRESS RAW KEY € * €"3 R932. "TO COMTINUE # RF NG 
LE=IHKETE: IF Le=""S7a 
CLS: PRIHT@13. "THE SCREEN IS DIVIDED INTO 8 AREAS. 
SELECT THE AREA ‘QU REQUIRE FROM THE MEHL. 
PRESS THE CORRESPONDING NUMBER @& <ENTER>." 
PRIHT#2@04. "PRESS AHY ALPHABET KEY TO RETURHM TO THE MENMU" 
PRINT@334. "MENU": PRIHT@4E62. 
"1 -— AREA 1 A 16 
2 - AREA 2 A - AREA 2 B 
3 - AREA 3 A - AREA 3 B 
4 - AREA 4 A - AREA 4 B" 
6£1@ PRINT"PRESS DBSIRED HUMBER KE’ -THEH PRESS <EH 
620 IWPUTZ: IF 2>8 THEN £028 
638 DEFSTRA-M 


- AREA 


OnynAa 


TER>" 


640 AB"1 111111111" Be"2222222222" 

6509 C#"93333323333": 09"4444444444" 
660 E"SSSSSIISS HSS": FeseG6EeCKESEEE" 
67a Ge"7 777 TTT TTT" HBS esesgsgeR" 
688 I="9999999999" Je"A1 22456789" 


6908 AA="@ORAagageaagdg" 
7G K="1580@ +": L="16080 +": M="ROW #" = GOTOF2A 
7i@ REM 


130 


PRINT@271, Ki @295.M+" 6 B" 
PRIHT@324,G6+G+G+LEFTS6G, 4% 
PRIHMT@384,LEFT#° A, 16 2+B+C+LEFT#¢ 0.8% 
PRIHT@448,RIGHTS< J.16 0+ J+I+LEFTS¢ J. 3% 
REM 

PRINT@S2°. Ki @551, M+" 7 BY 
PRIHNT@576,.G+G+LEFT#¢(G.8 3+LEFT#0H. 16% 
PRIHT@E4Q.LEFTSE™ G. 8 3+H+1+LEFTS$< AR. 16 
PRIMT@7O4. RIGHTS 1.9 51+ J4LEF TS. J.16 3 


729 OW 2 GOTO 738,.940,1150. 1368, 1578,1788, 1998, 2209 
738 CLS: PRINTO@1LS.K;@39.M+" 1 A" 

748 PRINT@E4. +0 +C+LEFT#¢ 0,45 

72Q@ PRINT@128.F+G+H+LEFTS< 1.45 

76Q PRIHT@192, Je J+JI+LEF TS J.3 5 

77@ REM 

78@ PRINT@2S71:. Ki 8295.M+" 2 A" 

730 PRINT@320. O+0+D+LEFT#( 0.4% 

S08 PRINT@394. RIGHT#<¢ B. 12 54+C+04+LEFTS(E. 125 


Dw DOWD Wp too mn | 0) 


QSWOn NAA We BoD aH A vd 


BT Re Re ee ee et rt ee 
PWV qgS°SO VVPIdVdIVPOIDs_ogaIoVoadDy 


81Q PRINT@447,RIGHTS¢ 1,13 2+J+J+LEFTS6 J. 11> RE ences Ke ReAT Me" & RN 
820 REM Bot eta eae pesmi are En see 
830 PRINT@S27.Ki@5S1,M+" 3 A" Seer eee 
840 PRINT@S76, LEFTS<¢D.4 0+D+E+E SRIHTOSED / j++ ALERTEC D255 
850 PRINT@E4Q, RIGHTS H, 4 +1 +AAR+LEFTS“ A. 199 na eS eee 
860 PRINT@7Q4, RIGHTS< J, 4 4I+J+ eee ho 
87a REM Bee, : 
oi; M" " 990 CLS:PRIHT@IS. Ki @39.M+" 3 BY 
Boe sa peee Cee eae ee as AOA PRINT@S4.I+1+I+LEFTSCI.3) 
z eee ee ee ae 201 PRINT@123.LEFT# AA. 12 +A+B+LEFT&< 0, 12> 
900 PRINT@296, LEFTS¢E. 16 +F+G+LEFT$¢H. 7? Bana POLuTe ies ePIeeTe Uke a ce ee ee 
918 PRINT@96Q,RIGHTS< 1,16 2+.+J+LEFTS$¢ I. 7 9; SAGneEM Bie rn 
Seed ee 2040 PRINT@271.KiG295.Me"1a B" 
ZO58 PRIMT@320,1+I+1+LEFTSC 1,43 
940 CLS:PRINT@15,K;@39.M+" 5 A" 206A PRINT@384.LEFTSCF.4 4 G+tH+l 
950 PRINT@64. F+F+F+LEFT#¢F, 3 A Aa Bea site eo a aed 
es : Soaae ZO7Q PRINT@A4S. RIGHT HS 1.4 3+ J+ +L EFT SO J.199 
960 PRINT@128.RIGHT#CA, 8 +B+C+LEFTS( 0.159 Sad nen 
980 REM apa tare oe oc Ge crn pe acest ete or eee ge 
2 ‘ i F100 PRINT@S?76. LEFTS< AR. 4 9+AR+AA+RIGHTS. AA. 209 
Supe DR radee Pee cee cas 2110 PRINT@E4Q, LEFT#¢ 0. 16 4D+E+LEF TOF. 7) 
Perea se tesa aoe 2120 PRIHTRTA4, RIGHTS. J. 16 3+ J+ +L EP TEC J. 7) 
141@ PRINT@384.H+I+AA+LEFTSCA, 3? = 140 REM 
1020 PRINT@448, J+J+J+LEFT#¢ J. 35 aL40 PRIMTOTT4."¥ * "Gla" # ¥ "]@RO4.MenL>. BH 
18038 REM tm = pul a ‘ vw ve : ‘ ‘ . y oo a aah ee a eis /_ 
. ti ce Segui 2150 PRIHTRQS2, LEFTS¢ AR. 8 +A+A+LEFTS< A, 162 
ios Se esee eee ee ee 2160 PRINT@S96, LEFT#<. 1.9 +AA+A+LEPT#¢B. 153 
FO ree Clas een ee eee Z17G PRINTR9GG, RIGHT#C 1.24 J+ J+LEFT#6 1, 153; 
1060 PRINT@E64Q, RIGHT$¢D, 12 +E +F+LEFT#°G. 11> stan GaTazaaa : : chee 
1Q7Q PRINT@7O4. RIGHT$<( I$, 12 3+ J+J+LEPTS¢ J,129 See seee 
128@ REM pei tha . - 
paar MR i 2200 CLS:PRINTO@2."* # "Gla" ok #e": Rad. Me"12 BN 
ee NG ag Nae a 2210 PRINT@E4, A+A+A+LEFT#( A. 3» 
110Q PRINT@@32.H+H+H+LEFTS$¢H, 4 > 2700 PRIMT@129, F+G+H+LEFT#¢ 1.42 
1110 PRINT@E96, LEFTS#< AA, 4 +A+B+LEFT#¢C. 19% ROI PRIHTR192. l+/+1+LEET# 1,39 
112@ PRINT@96Q. RIGHTS¢ J. 4 2+J+J+LEFT#¢ J. 199; AAG RENN Ao Pe 
fice men 2250 PRINT@ZES."* # "GL" kk "sR29R.Me" 14 B" 
1 5 2260 PRIHT@220. B+E+E+LEFT#¢B, 4 > 
WEG BE Sed MELD ee eee aeons 2270 PRINT@3S4, LEFTS(B. 12 3+C+D+LEFTSCE. 12) 
117@ PRINT@129, LEFT$¢G, 16 +H+I1+LEFT$¢ AR, 8 > SCRE eee ee oe 
1188 PRIHT@192,.RIGHT$* J. 16 5+ J+J+LEFTS¢ J,7 > ATAR PRINTRS1, ¥ mete OF" BRAG, t+" 15 Be" 
ae ee ss er 2310 PRIHT@S76. B+LEFTS(B, 4 +C+C 
1200 PRINT@E71, Ki @295,M+"18 A’ 2320 PRINT@E4Q, LEFT#¢H. 4 2+1+AA+A 
121@ PRINT@220, 1+1+I+LEFT#. 1.43 22338 PRIHT@TAd, RIGHTS. 1.4 3+ J+I+LEFTS¢ J, 19) 
1220 PRINT@384,LEFT#(C,82+D+E+LEFTS¢F. 15° 2340 REM 
1236 PRINT®448, RIGHTSEC J. 8 24 I+I4+LEPT Ee 0,155 S450 PRINTR7T77,."* £ "Sta" + * "|RABS.ME"1E BY 
aege ney 2260 PRINT@222. CHC+C+LEFTSCC, 43 
1258 PRINT@S18."* # Nabi" # FN RUB. MeN) A” 2370 PRINT@S96, LEFTS#¢ £, 8 +F4+G+LEFTS¢H. 15% 
126@ PRINT@5 76. AA+AR+AR+LEFT $< AA. 4 3 2230 PRINTROEG, RIGHT# J. 16 9+ J+ +L EFTS¢ 3.79; 
1278 PRINT@E40., AR+A+B+LEFT$* C, 3> 2290 CATO 24a 
128Q PRINTRCA4, J+ t+ J+LEFT #6 I. 33 2400 PS=IHKEYS: IF P#="" THEN 240@ ELSE 38a 
1298 REM 2500 REM 
13@0 PRINT@P74.°" € "GL" * Re "FSSA. M4+"12 A" 27600 REM 
1310 PRINT@@S2. AR+AA+AAtLEFTS#< AR. 43 27a@ REM AS MEMORY LOCATIONS 16 THOUSAND & OVER ARE IN THE 
1328 PRINT@S36.LEF TSF. 12 0+G+H+LEF Tt 1.11% MIDDLE. AS IT WERE. THEY HAVE BEEN IDENTIFIED 
1330 PRINT@96Q.RIGHT#*< 1.12 9+ J+J+LEFT#¢ J. 1419; WITH THE * * * & OFFSET TO ATTRACT ATTENTION 
134@ GOTO24aa 
1350 REM 
1368 CLS: PRIMTR a # x Mea + * sf eg , Pf i3 A" ee) < 
137@ PRINT@64, A+A+A+LEFTS¢ A. 3? . whe ee = atone peeved i 
128@ PRINT@129. LEFT#¢B. 4 2+C+D+E . THIS IS AREA *1 A .. THIS 1 AREA “1 B ; Nete A 
{aaa PRIHT@®192. RIGHTS 14 34+ 4+ 4+ eoeanreuvnoneweueenweeevnewenwanrenrpeniuereeseepeunnvnsenettrennepeneenenenenenveeneweeaseeepeanveaeua v] 
14aa FEI a ee ee rr | be| 
141@ PRINT@26"."% #  "GLs" * # “GRB9G.Me 1a AP ‘ - ee, es es aed Ow - 
1420 PRINT@320, LEFTS#(A. 16 1+B+B+LEF TSB. 8? THES tS COREA S28 THIS IS AREA *2 B 
1430 PRIHMHT@SS4, LEF TE. 1.16 2+AA+A+LEFTEC E.G ee ee | sae 
1440 PRIHT@4438. RIGHTS 3.16 0+ 4+.4+LEPTEe 1.8% ewe npeweeenwvmanenwmnewaeueauanereeeareveemeaeenereeseneenwmwveertneseaneeneenerwenenanareaennaeeweeauan osonreana 
1450 REM : . ee . ode ee 
1460 PRIHTRS2 rae 3 *¥ ee Ree + £5 OSA. M4 Ls FA" ° THIS Is AREA a A wa THIS Is AREA c B 
147A PRIHTRS FS. B+B+B4+LEFTECR, 4% eunanne eseenwnvu nec enew ann eve eee ener se weennmwenrneeee eh lh hl rhe rl her he rl hl he hh 
14282 PRIHT@E4A0.RPIGHTECE. S14+F+G+LePT£oH. 159 ew n uae Ce ee | wanaa 
4) > aren! : - : THIS IS AREA “4 A’ - THIS IS AREA “4 B’ 
MINTO? Ad. RIGHTS. 1.8 i+ J+J £0.,159 
see eee ee Seer eta 44 4 * PRESS ANY KEY KH, 


15c0q REM TO COHTIHUE * * # F 
1518 PRIHT@e?T7. "of + "LG " ¥ #° ROA Me TL rr Ce | CC | 
1520 PRINT@SAS, C+C+C+LEFTECC. 3) 

1538 PRINT@S96, B+C+0+LEFTECE. 33 

1540 PRINT@S6Q, J++ 4LEFTH 1.29; PAINT-007 =, RE Low rt AkER 1A (as SPR On full SC (een) 
1558 GoTo24Aa . 

1560 REM 


: 15aa@ + ROW #1 A 
1578 CLS: PRINT@IS. Ki @aa.m+e" 1 BY : ts ane, 
15@Q PRINT@S4.LEPTE(C, 16 04+040+LEF TED. 23 233939339993 993339933337397333393339 33 
1598 PRINT@128.LEFT#< 1. 16 +AR+A+LEPTS: B.S 5 66S66G66667 77rrrrrrrragegeeageaegaa 
1600 PRINT@192. RIGHTS. J. 16 041+ +L EF THEO 75 Qiezseseresaresaneresaaiezs¢4srerasai 
1618 REM 15@@a + ROW # 2 A 
1626 PRIHT@27 1. K; R285, M+" ae 4#dddddq4d4dqdd4444444 4 $#dddd4ddq44444444 4 
1629 PRINTRS2O.0+04+0+ LEFT E00. 43 efer2e2RR 33999333 33444444 GH aH SSG TS 
1640 PRINT®284, LEFT#¢(E. & +P +G+LEFT£OH. 169 Ro OR Le 2D ee OO 1 ee 8 eo Fe aL eae 
1650 PRINT@448.RIGHTE# 1. 29+ 14+ +L EFTHE. 183 15800 + ROW # 27 
1660 REM $4 444444444455 55 SSS 5S SSSSSSSSHS SS 
L670 PRINTONS? KS @ESLMe" @ Be gagsaeggaa9aTggagHNaAAanAaAwAaALIL11tiiii1t 
1680 PRINT@S76. E+E+E+LEFTS# E. 2» ge3:A@1234567899912345679981234567823 
1630 PRINTRE4O. B+C+O+LEP TS E43 = © © tr © ec er sore ee cere & ow fey ye 2 
17H@ FRIHNT@PTO4, I++ JI+L EFT ES 1,25 a "S555 SBS SS SRE S 
i71ie@ REM se. OS BBE KOE EK GEE EE SBP FTP PPP PP re |e eae 
23245679909123456799012324567282901232 


1720 PRIHT@7S93. ki 2307. M+" 4 8" 

1738 PRIHTRS32.LEFTEHOE. 12 +E+F+lLEF Teer. 12% 
174@ PRIHT@SS6. LEFT#.H. 12 °+1+AR+LEF Te Add 
LPG PRIHTRI6O. RIGHTS! 1.12 s+ 4+ J+LEPT EO J. 4d 
1768 GoTOS4aea 


1rr7a@ REM 

PS IESE Dery A - The 1s kPyu's  oprintodt. Actually Ke screen IS filled (Hal) 
198@ PRIHNT@1SS. LEFTS¢ 0. 4 +E +F+G i 

1810 PRIHT@IS2. RIGHTS 1.4 v4 i+. ETF. 1.28% r 

1820 ae poe earer MP cere Mer a To lag line. 
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CLUEDO 


User Machine: TRS-80 Level II 
- uses 14K. Designed for Mod 


1 but will run on Mod Ill — 32K 
upwards but you must delete 
the Mem Size pokes in Line 1. 
Disk systems without DOS 
boosted. Operates with or with- 
out L/C installed. 

Development: Originally the 
program was written entirely in 
Basic but the computer used to 
take about 40 seconds after 
each player's turn to scan pos- 
sibilities and store and retrieve 
information from previous 
Calls. 

This was unacceptable so | 
delved into assembler for a 
while and the resultant machine 
code allows for very fast tur- 
naround. If someone wants to 
disassemble it, it resides from 
7273H to 74D3H. 


Alan Goodison 
Mooroopna Vic 


1 POKEIG6S61,.114:FOKELES562. 114: GOSUBSS 

@ CLEARS@O OIMMS: 21>: DIMAS 6 DEFIMTA~2: 2=S360RG : '’=20158:G=326160@:GOSUBS1  GOSUBS2: 
PRIHT@P Pa, CHRES Seo: GOSUBS? 

3 PRINT@ES6, CHRE6 S125 (IMFUT "Computer Player's number "i Hf: Cl=VALCN# 9: TF CL >NORCI< 1 
PRIHT@GS6."1 to "H" Please. "CHRE( 30>: FORK=17T01500: NEXT GOTOSELSEFORK=1T021 :FPOKEZ 
+I LEST +H, Po MEAT 

4 PRINTRSOR, CHREC S105 -IMPUT"Mho’s Soins to deal" i h#:- DbesVALCN€ 9: IFO2>NORD2< 1 THENF' 
RIHT@S9A0."1 to "4" Please. "CHRS0 305: FORKM=17TO1500: HEXT - GOTO¢ELSEGOSUBES :GOTO1a7 

5S Wel: PRIMT@64@6. "Enter sour own cards Cby number o: "7 -PRIMT@710, "Enter zero when 
come lete"; <C3=1:30TASS 

6& CLS: W=@: FPRIHTTIBS 3a" SUSPECTS"; TABS 26 2" IMPLEMEHTS" 5 TABS 47 >"ROOMS" > PRINT: PRINT" 
"Hee 155 TABC 24 INES 795 TABS 44 HEC 135: PRINT" "Hee oo TABS 24 [HE¢ 895 TABS 44 NSC 14.0: PRINT 
"UBER 95 TABS O24 OME 95 TREC 44 0OHSC 155: PRINT" "He 45; TABS 23 NSC 1093 TABS 44 HEC 165 

7 PRINT" "HES >; TABC 23 OHS 1195 TABC 44 ONSC 170° PRINT" "HC 635 TABC 23 ONS¢ 1295 TABS 44 OW 
$0180: PRIHTTABC 44 ON€¢ 199: PRIHTTABC 44 ONS¢ 26 9 PRIHTTABS 44 ONC 21 0: IFV=Q@THENSELSEPRI 


HT@E4dG,. TH PRINT: PRINT Who’ s calling ~ Player no CZero for disklay -~ else 1 t 
o it HH it ‘) tt 


6 PRINT@793.5 INPUTU:PRINT@ 796. CHR#< 30>: IFUS@THEN7SELSET=U 

9 IMPUT"SusPect Person card €1 to 63: "JP: INPUT"SusPect ImPlement card 7 toa 1 
Zo" T:INPUT"Suseect Fioom card C13 to 2bo:"iS: IFP<1ORP>S0RI< 7ORI>120RS<130RS>21 
ORL @ORUSMTHENTS="*#*4 Try again **" : GOTO6ELSETS="" 

1@ CLS: A=T+1: IT FASNTHENAR=1 

11 FRIHT: PRINMTNS< Foo" "Hee To" "HEC So: PRIHT: PRINT: IFA=C1THENISELSEPRINT "Ask 
"ASCARI: PRINT: PRINT" Was a card shown? - Press ‘f“H" 

12 RE=IMKE’S: [FRE="'¢" THEHC@ELSEIFRE="N" THEN 7ELSEIFRS$="E" THENSSELSE12 

13 TFPEEKC 2+A#21+F >=AORPEEKC Z+A¥2S1+1 2=RORPEEKS 2+A¥21+S 0=RATHENI SELSEPRINTAS$¢ C1 >: P 
RINT: PRINT"Say - Searrsy "ASCII". I can’t hele wou. ":PRIHT: PRINT"Press sPace ba 
r to continue" 

14 R#*IHKEY#: IFR#=""THENI4ELSEIFR¢="E"THEMSSELSE1S 

15 PRINT: PRINT: PRINTA€C C12". Please ehow your card ta "ASUS PRIMT PRIHT PRINTF 
ress eface bar to continue" 

16 RE=IHKEYS: IFR#=""THEMIGELSEIFRS="E" THEMHSSELSES1 

17 POKES+AK21+F. 7: POKES+A#21+1.7 -POKEZ+R¢214+5.7 

18 WeW+1: TFW=H-1THEM@LELSET=T+1°: IFT SHTHEMT=1 

19 GOTO1G6 

2@ IFUS >C1THENGOSUBSSELSEPRINT: INFUT"Enter card showa"s 0: IFO -PAWDOS > TAMDOS » STHE 
He@BELSEIFPEEKS 2+A4¢21+0 [=ATHEHSLELSEPOKES+1@. 1HTC¢ 2+A#21 2256 9: POKES +9. f+ tel ~ THT 
CC 24AK21 O- 256 KOE: POKEZ+11.A: FOKELE5¢6, 189 FPORELES27. 115: K=USRC 2+A#e1 +09 

21 CLS: GOSUBSG@: GOSUBR1: GOSUBSS : GOSUBRa: GOSUBS1 : GOSUBZE  GOSUBS@ : COSUES1 

22 GOTOT3 

23 FOKE1ES26.25:POKE16527.116:POKEZ+159,.6: [FAL=Q@THEMPOKES+157.6: K=USR Stee 3 

e4 [FA2=QTHEMPOKES+157.6:X=USRC 2428 3 

25 IFA3< -@THEMRETURHELSEPOKEZS+157,.9:POKES+159. 9: KsUSRC 24+34 5° RETURH 

Zé POKELES26.1@9:POKELE3S7., 116: IFA1S@THEMHPOKESH+1 27.6: 4SUSh! 2+e2 3 

IFRe >@THEHNFPOKEZ+157.6:4=USRC 2+28 5 

IFAS S@THEHMHPOKES+ 157.9: 4=USRC 7434 5 

RETURH 

POKE16326,.19F /-POKE1E6592@7,.115 > A=USRC 2+2e 9: RETURM 


IFA] S@THENSCELSEPOKELES26. 115: POKEI652S7. 114: SSUSRC6 3 ALSe 
IFAZ -@THENSSELSEPOKE 16526, 168: POKELE527, 114: e=USRC EGO: ASSH 


IFAS*GTHEHRETURHELSEPOKELES26,179:POKELES2S7. 114° 8SUSRC90- Ages: RETURH 
ONCAC CS 9GOTOSS. 26.37.56. 39.46.41,42.45. 44.45. 46,.47,45.49.58,51,.82 95.54.55 
C4=1548S RP ETUFH 
C4=13552: RETUPRM 
P4s1 5616: PETURH 
36 C4=15690:RETURM 
a9 C4=15744: RETURN 
$0 C4=15908 > RETURH 
41 C4=15511:>RETURH 
5 RETUPM 
39 RE TUPI 
6 


a4 


WW ob oo to haa) A 


AYnAOb Whe Ow mM a4 


3d 
f 


' RETURM 

. RE TUR 

Gl: RETURM 

47 C4=15531:>RETURH 

49 C4=15595 : RETURN 

49 C4=15659° RETURM 

5Q@ C4=15723:>RETURM 

S1 C4=15787: RPETURH 

52 C4=15S51:>RETURM 

Sa C4=15915%:> RETURN 

54 C4=15979: RETURH 

So C4=16643 > RETURH 

SE IFPEEKC S+A#21+F o=ACRPEEKS S+A¢S14+1 0=AORPEERKS 2+A#214+5 9=ATHEMRETUPHELSEPORES+ 1. F 
-FOKES+3,1-F: POKEZ+13.9-1:FOKES4+5. @: POKES+1 1, A PORMELES26. 262: PORELESS°. 1 i4: stick 
C2Z+A#21 9: RETURH 

Er FPRINHT@P 7S, CHRSEC 3195 (IMFUT"Mumber of Players "SHE HeVALC HE a TFS SOR OE THEMPR IMT 
R772,"2 tao & Please. "CHRE! 3Q°0: FORH=17TO1S@0:>NE“T: GOTOSPELSEPORES+ CO. HW PORE S+ ro 
14H+1>RETURM 

BS PRIHT@S9E6, CHREC 3155 > IT HRPUTHE: TEVALS M# = GRD oO" THEMASELSEC SC C5 ce VAL MEO 

So IFCa¢CS se) THEMSGELSEIFC2¢ C3 5% SATHEHGOSUES4 POKECS. 94 C3=C0S+1 PRIN TSS . HRY 
349: GOTOS& 

£6 CLS: PRIHT@23@, "Are these cards correct? - Press YeN" PRIHT FORe=17TO0o- 1: PRI 
HT TABS 1@ oNS¢ Cac Ao HERT 


Hono) VY 


61 RESINKETS: IFR#="H" THEMY=@  GOTOSELSE IPR S< 2" THENG1 

G2 FORM=1TOC2-1° FORO=1 TOM: POKEZ+O8214+C2¢0 80. 7 MENT  POREZ+C 182140208 0.01 MEST GOTH 
87 

63 SS=INTé 18/N 2: FORO=1 TOM: POKEO+O. S2:NERT S3=S3+1: [FH=4 THENS4EL SE TFH=STHEMASEL SE 
RETURN 


64 OMBSGOTOES LES. 66.67 

FOKEQ+D24+1.93 POKEQ+02+2,. 53: RPETURH 

POREG+4,.963: POKEQ4+1.S53 : RETURM 

POKEGH+1.953: POKEQ+2, 93: RETURH 
OWMD2GOTORS.69,.78,.71,72 

POKEQ+D24+1,53: POKEQ+O02+2.S535: POKEQ+0h2+3. 53: RETURH 
FOKEQ+4,53:PQKEGH+5. 53: POKEQ+1,.953: RETURH 
POKEG+5,S52:FOKEQ+1.53 POKEQ+2. 953: RPETURM 
FOKEQ+1,S3: POKE@+2.53:>FOKERN+3.953°: RPETURH 

IFA1 VQ@AMOL 1=QTHEHF SEMI CEC HECAL ID Oo ASE "To we found the murderer!" SLE="The ru 
rderer - ":Lisl 


MN NUMA Hh 
HQrN OW Oma 


74 IFAZ>G@RNDLZ=Q@THEMIF=MIDS6 MFC AZ 2.40: %S="I’ ve found the murder weaPon! 1": '/1s="T 

he murder wearPon ~ "‘Le=1 

75 IFAS >@AHDL3S=O@THENS#=MIDS( NSC ASI. 49: 2¢="T' ve found the murder room! !":21$="The 
noeder room — "Lael 

76 IFLi+lLe+L3=STHEMES="To Juit the Program Press A" +CHR#( 2269+" To return to d 

isPlay Press D0" 

77 CLS: PRINT@129. 4#:PRIMT: PRIMTY#: PRINT: PRINTZ#: PRINT@724. "For disPlay - Fress 
GO": PRIHT@ FSS. "For next Flayer ~- Fress HW" 

7S RE=INKEYS: IFR#¢="0" THEN7SELSEIFR#="M" THENSTELSEIFR#="E" THENSSELSE78 

79 CLS:PRINTTABC12>9"CM FPP RG MP MS MW DA CA RE RO LP SP": M4=11:FOR 

O=1 TON: O#=LEFTS¢ ASC 09.99: PRINTOS: -FORK=1T06: PRIMTTABC M4 oPEEKS 2+04214+% 95 + M=M+4: HEX 

Tit: M=M+4 > FORHM=7TOL2: PRIHTTABC M OPEEKS 2+0K214+% 05 M=M+4: HEXTH: M11: PRINT: HEATO: PRIN 

- 

RQ PRINTTABC122>"HA LO OR KI BA CO Bir LI ST": M=11:FORQ=1T0OM: O$=LEFT#<¢ A¢¢ 0 
4,99: PRIMTO#s -FORK=127021 > PRINTTABC iM DPEEKS 2+O04214+6 35 (M=M+4: HERTHA: M211: PRINT: NEXT 

CO: TFLA+L2+Lac2Q@THEHPRIWT@ 963. "For answers - Press A"; 

S1 FRIHTR99S. "Press sPace bar to continues 

@2 R#=INKEYS: IFRS=""THENSZELSEIFRS="A" THENSSELSEIFR#="E" THENSSELSEIFR#="0" THENSS 

ELSES? 

82 CLS: PRIHTR460, 21 Ei PF: PRINT@S24, 11#; If: PRINT@SES, 2195 5%: PRIHT@SE6. ES: PRINT@S94 
"Peees sPace bar to continue" i 

ad R#=INkEy¢: IFR¢=""THEMS4ELSEIFR¢="0" THEHSSELSEIFR#="0" THEM? SELSEIFR#="E" THENSS 

ELSES? 

SE CLS: PRINT@460, "Co you want another game?" 

35 RE=IMNKEYS IFRS=""THEHS6ELSEIFRE=""" THENRUNZELSEENCD 

Sa? POKELSE526.191:POKELE6527.116: 4#=USR¢ 03: GOTO4 

88 POKELES26, 203: POKE1L6527.116:4=USRC @9:AL=0:A2=6:AS=8:L1=0:L2=0:LS=8: xga"": VSR" 
"2a SLES Lee 21 ge Pg TES Offa EF": TES "KE Replay last hand & 

#": GOTOER 

89 CLE: PRIHTCHRE< 23>: PRINTOT7S, "Loading Cata ...."'FORK=1T021 > READHS: NEXT: FORK= 

SIS39TIS9907 : READA: POKEX. A: T=T+A: IFT SSS STHENT=T-2564 

q ae ST IFT VASEéTHEMPRINT@S42. "Incorrect Data" -EMDELSERFESTORE : RETURH 

S41 CLS: FPRIMTCHRE? 235: FORK=8TOLS5: SETS A. 1 >: MEAT: FORO=17031:SETC 125.09: HEAT: FORH=1 

S4TOASTEP-1:SETS 4.310: HET: FORG=31TO1STEP-1:SET¢C @,.0>: NEST: PRINT@S44. "CLUEDO"': : RE 

TAFE 

Qe FORM=1TOS1 (README Ao: MEST POKELES26, 177: POKELES2!S7. 115: XsUShC 25: KSUSR 24155 5° F 

QKES+ 78: PRIHTOPTE. "Do you wank instructions?" 

a3 RE=INKEYS: IFRE="H" THEMRETURHELSEIFRE< 2" " THEHSS 

94 CLS: PRINMTTABS 26 "CLUEDO": PRIHT: PRINT" Introduction" :-PRIHT" This Program is not 

13 Game in itself buh if used within one. It is designed to be used with the Poru 

lar board Game of the same name, Produced by Murfett,." 

95 PRINT"The comPuter will Play one Player’s hand in the Game and will come WP 
with “horkefullys > the right answers. Cas well as catchingsthe cheats! 0": PRIHT: PRI 

HT"ExPlanation of inPuhs: 

96 PRIAMT'Humber of Players: from 2 to 6": PRINT"ComPuter Player’s number: any num 

beer uF tio the total players. "(PRINT"* Players are numbered in a clock-wise direc 

tion. O'S RPRIHT" Who's to deal: what is dealer’s number?" 

97 IFINKEY¢=""THEHSPTELSECLS :PRIHT"During the Game: ": PRINT: PRINT Firstly. you mus 

tounderstand the board Same itself." (PRIHT: PRINT "The Player using the comPuter w 

ill need toe familiarise himself with the CISPLA'Y which is available after each 

Player's turn." 

QS FPRIHT"As the game develoPs the Player will obtain clues as to where tomove on 
the board." PRINT" The alll will ask for information to be Given on what is h 

aPRening - i.e. who if callings. was a card shown, etc," 

99 FPRIWT" Tf incorrect information is entered during the Play. Press E at ars tim 

e and the hand will be re-Played.":PRIHT"To Quit the Program Press " 

12@ IFIWHKEY¢=""THEHIOG@ELSECLS :PRINT’ The CISPLAY ~ cM PP RG MF MS fal"! 
>PRIWNTTABE 123" Tira 7 ra 1 a 1 7": PRIMTTABC1Q>°"Mary 2 7 t 
a) 7 7 

1@1 PRINTTABC1@>"Harrs 7 Q 7 € 7 7": PRIMTTABC 18>"Sue 7 7 

ra =) 7 4":PRIMT - 

1@2 PRINT" The samPle disPlay above shows information about the PERSON" : PRINT" sro 

Woof cards.cCmM is Col Mustard, PRP is Prof Plum etco":PRINT"The disPlay shows th 

at Tom (Player 1> has Rev Green and Miss S. Mary 2) has CM and Sue (4 has MW." 

183 PRINT"A number 7 means that the Player does not hold that card i.e. reithe 

r Tom. Mary or Sue hold Prof Plum as they all have a 7 forthat card." : PRINT" Thus 
it must be Harry’s or it’s the murderer." 

164 IFINKEY$=""THEHLA@4ELSEPRINT@384. CHRS6 3195 :PRINT"A zero means - I don’t know 

yet." PRINT"The 9 for Sue means that she holds MP or a card in another grouP- ta 

lso shown with a 99. These numbers will be changed as more deductions are made. 

": PRIHT 

105 PRINT"After several Practice runs the disPlay will be very useful." PRIHT'Wh 

en answers are found this will be indicated after each hand." PRINT: PRIWT"Good 1 

werk 1" 

106 IFIHKE'YS=""THENIG@6ELSE91 

147 CLS: FORK=1 TON: PRINT" Enter Player "K"’s name "iG: INPUTASC Ho: PRIWT  HEXT: GOTOE 

108 DATA1. Col Mustard.2. Prof Plum.3. Rev Greens 4. Mrs Peacock.5S. Miss Scarlett 

6 Mrs White.7. Cagger.&. Candlestick... Rewolwer.10. RPoPe. 11. Lead PirPing. 12. 

Spanner 

199 DATA13. Hall.14. Lounge. 15. Dining Room16. Kitchen. 17. Ball Foom. 18. Conser 

vatory.,19. Billiard Room.28@. Library.21. Study 


110 DATA2Q5, 127,10, 36,221,33,49,117,17.21,9, 237, 75.69. 117. 65.201 229,253 
»126,21,254,7,32,13.13, 44, 4,221.2 .e4,242,108.38.8.195. 154, 14, 4 a 48. 2 
5. 36.253, 229,221. 225,24, 223.205.127,10,.221,393. 55.117. 38.7. 24.208. 285. 1: 
111 DATAZ?]1,.33.61,117.38.13524,.189.42, 57,117, 237,.91,49. 117.25, 26,254, 7.201.205, 
127. 10,34,57, 117,237,391, 49, 117. 74,.205.197,114, 32.6.12,.121,.254,.2.40,27,58.53,.117. 


66,5@,53,117,254.3,.40,96,254.2,40,6,237,91 

112 DATAS1,.117. 24,224, 237.91.61,117.24,.218, 205, 190.114.32,.14, 237. 
97,114.32.5,.237,.91,61. 197,25. 34,63,117,.126,.196,48.117.70,.90.42.° 
,22.40,106, 35,120,190. 32. 245.114.24,.242,.237,91, ao. 117, 33.198, 1 


113 DATAZGB. 117, 25,10,190,192,42,57. 117.20, 122,254.22, 200. 95.126. 187.40. 246.54.7 
24,242, 205,190,114. 40.2. 186, 192.237.9151. 117.205. 197.114.402.188 ? Z 


1, (ie oes. ier: iia. $Q,2-.196.192.42,55.117,35.94, 55,117.77. 285. 180.114, 40.1, Aiz 


114 DATAR23S7.91.51.117 728 5,197,114, 48,1, 193,297.91 61. 117.205.197.114. 208,113 
642,63,117,1,235,255.58,59.117,.61,.40,.3,9,.24,250,58,.68.117.1.21, 054.7261: 
24, 248. 42,63,117,.58,59, 117.119.195.408, 115., 205,127. 10.14.155.54,.8,35.13,. 32 
115 DATA2@1, 2@5,127,.19.22,0,.195.14, 115,205 »127,10,229 (ORL 225. 58.55 

|, 117,254, 8, 200,297, 177.40,6, 221229, 225,61, 2 1239+ 43,34, age See 
1,8,.42.63.117.229,253.225.17,.187.138 

116 DATA24, 245. 79, 2353.43,.61,.32,251,253. 34, 57,117,124. 

w3-115.8,24. 192.205. 127.18.62,.0,.50.215.117. 285. 97, (116.126.156.461, 25 

116.32, 22.9,29,.32,.241,.33.205.117.53.44, 18,253 

it? DATAZESS 225, 95.24. 226. 33.215. 117. Seve gEOG + Sa ee 3 221,225, 
661.33,.215,117.190,192.58,68,117.221.229. 225.54. 7.61. 208.9, etaet 

68,117,229, 253,225, 201.205 127.18, 205.97 (116.126. 254.7,40.2 

118 DATRES., ee 186.40,.14.33,.205,117.53. 208. 253,229, 225.2 

7.91,68,117,2 3. 229, 225,28, 126.254.7.32.3.9,24, 247,15 40.223 

9.117 s 225 Q,33,48, 117.9,.61.32.252.34.57.117.42.63.117. 285. 14, 

119 DATAS3. 74,117. 17,218, 117°.1.135,6,237.176,281., Ra P1S 117 17-78. ii? "195,197.14 


Nn: 


Stockmarket is a game | 
wrote a few months ago. 
Lines Function 
10-300 Introduction 
310-450 Displays table 
550-660 Buying shares 
670-720 Buying more shares 
750-1180 Select a change in 
trends 
1190-1210 Print it 
1220-1370 Sell shares 
1380-1470 Assign values for 
graph 
1480-1670 Graph routine 
1680-1730 Find status (up/ 
down) 
1740-1900 Quit routine 

This simulation is designed 
for the System 80/TRS-80 
machines and uses PRINT@ 
and PRINTUSING otherwise | 
see no problems in conversion 
to other machines. The program 
runs on a 64 character screen 
and occupies about 9K. 


David Thomas 
Yandina Qid 
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STOCKMARKET 


328 
33a 
348 
35a 
368 
378 
382 
NGS 
398 
4aa 
410 
42a 
438 
448 
45@ 
46a 
47@ 
482 
4398 
308 
218 
328 
338 
54a 
558 
568 
57a 
588 
398 
£08 
£18 
628 
ata 
£38 
644 
65a 
668 
£7@ 
£88 
£98 
CHR 
72a 
718 
72a 


REM STOCK MARKET 
CLS: CLERR1@@@: DEF INTR~Z:WE=@: FSC] =" " FRC =" 4+" FBC 3 O=CHRSC 34>: DIMBSC RD 
FORX=1TO8 : VVC XG: NEXTX: LS=" SSHHRHH. HH" 
PRINT@@, STRINGSC 64, "K" 3; 
FORC=647T0448STEPE4 : PRINT@C, "*" i :PRINTRC+63, "*" 5 «NEXTC 
FORC=449TNS11:PRINT@C."K"5 «NEXTC 
PRINT@S8,"* STOCK MARKET X"; 
PRINT@1S2, "XXXKKKKXKKKKEKKK" | 
PRINT@216. "BY DAVID THOMAS" : 

PRINT@323, "Enter “@’ if you accidently Press buy or sell and you want": 
PRINT@387. "neither." 

FORC=1TO7@@: NEXTC 

PRINT@S32.""; 

INPUT"How many Players 41 to S>"iA 

IFAS 1ORA>1SPRINTCHRS¢ 27 DCHRS¢ 29; :GOT013G 

DIMAS AD 

FORB=1TOR 

PRINT@66Q@, ""'; 

PRINT"Player "jBi"’s name is": INPUTASCB) 

PRINTCHR&¢ 27 DCHRS¢ 29); 

NEXTB 

PRINT@767.""; :INPUT"Delay between QraPhing (e9. 1@ = 1 SraPh every 18 Goes)" 


IFTR<1ORTR>4QPRINTR@771. "Try again» Please"; :GOTO220 

CLS: FORB=1TOR:PRINT"Player#";Bi" is "ASCB):NEXTB 

PRINT"Press “newline? to continue" 

IS=INKEYS: IFIS=CHRS( 13 (GOTO270ELSEGOTON268 
FORC#1T08:READBS: CSCC =BS: NEXTC 

FORC=1 TOA: M¢ C =100@:NEXTC 

FORC#1TO8:READD: DCC 2=D:NEXTC .- 

K=1 

CLS: PRINT@@," COMPANY", "PRICE". "STATUS"." ASSETS" 

FORP=1TQ8: PRINT@PKE4, Pi CBCP OLOCPO.  VHOP OG "OU GYYCR D5 "9" 5 1NEXTP 
FORC=98TOSS88STEPE4 

GOSUB168@ 

PRINT@C, FSC ILD; 

NEXTC 

PRINT: PRINTASCK "Ss turn": PRINT"Your liquid assets are: "i ‘PRINTUSINGLS: MK) 
PRINT"’B’ BUY "SJ STRINGSC9,32)9;3"°S’ SELL"iSTRINGS(8,329;"'N’ NO TRADING" STRI 
€9.3295"’Q’ QUIT": 

PRINT"WELL7": 

IS=]NKEYS: [FIS=""GOTO40a 

IF I$< >"B" ANDI S< >"S"ANDIS< >"N" ANDI $< >"Q"GOTO4a8 

IF [$="Q"GOTO1748 

IF [$="B"GOTN46@ 

IF [#="N"GOTO472 

IF[$="S"GOTOS3¢a 

GOSUB55@ 

GOSUB75@ 

K=K+1: [FK=A+1K=1 

WE=WE+1: IFWE=TRGOTOS@@ : ELSEGOTOS2a 

GOSUB1482@ 

WE=2 

GOTO31@a 

GOSUB1220 

ZOT048a 

PRINT: INPUT"WHICH COMPANY <1 TQ 8>"5NM 

IFNM=@RETURN 

IFNM< LORNM>SPRINTCHRS¢ 27 DCHRS¢ 27 (CHRS¢ 29); -GOTOSS5A 
IFK=VV¥C NM DTHENEG 78 

IF’ YC NM S@THENPRINT" ALREADY BOUGHT" : FORX=1703@@: NEXTX : RETURN: ELSE6@@ 
INPUT"HOW MANY SHARES" i SH 

IFSH=@RETURH 

IFMC K -€ SHXDCNM DOK LPRINT"YOL HAVE’ NT ENOUGH MONEY": :-PRINTCHRS< 27 0CHRS( 29); °G 
£28 

WMC MM D=K 

MOK O=MC K -C SHXDC NM DD 

VHC NM =SH 

RETLIRN 

IHPUT"HOW MANY MORE SHARES"; SH 

IFSH=QRETLIRN . 
ITFMC K -VHC NM -C SHEVVONM DOC AL QLPRINT' YOU HAVE’ NT ENOUGH MONEY": > PRIHTCHRS¢ 27> 
$29; ‘GOTO67@ 

WHC NI = VHC NM 04+SH 

Me K DSlac K€ SH¥EDC HM Do 

RETURN 


73@ DATA KMART, ALCOR, APPLE, AMPOL:MT ISA MINES. BHP. AMOCO, TAA 

74@ DATA 4@,30,68.72.60,80,50.98 

75@ R®RNDC 10): IFR>2ANDR< 8G0TO3998 

76@ R=RND¢ 15>: ONRGOTO77@. 798. 978.810. 830, 978. 858,878,978, 892, 918,978, 938,958,978 
77@ O=®RNOC 19 >+RNDC 1@>:GS="APPLE WISHES TO ADVISE ALL STOCKHOLDERS....... OF A” 
+STRSCO)4"% RISE IN PROFITS FOR 1982": D¢ 3 >sD¢ 3)+¢0710QK0¢ 35): K2¢3=2 

788 GOT0119@ 

79Q@ O=RNOC 20 +7: GS="KMART ANNCUNCES......008. A o"+STRSCO04+"% DEPRECIATION IN S$ 
HARE PRICES. ccccnes DUE TQ INCREASED OPERATING COSTS.......06. 2"? DC 180 19-00 
“L@OKDS Ld: X20 1 =] 

88@ GOTO119@ 

eouereee DU 


810 OF®RNDC 38>: GS="BHP’S DEFICIT FOR 1982 IS $"+STRS(05+" @fM O9@.... 

E TO STRIKES THROUGHOUT 1982........ "? DCE S00 6 9-607 LOGKDC 6 99: KZ0 6 1 

82@ GOTO119@ 

83@ O=RNDCS >: GS="NO."+STRSCO D+" SHAFT...... AT MT. TSRa asses HAS CLOSED DOWN BEC 
AIISE OF R CAVE-IN.......ee MARKET FUTURE LINCERTAIN.......000e "2 OCS 00 3-60 OK1 OD 


41QOKDE S35 A205 = 1 
84@ GOTO1198 


85@ G$="NO REPORTS....... MARKET STABLE.......... ‘ 
s6@ GOTO119@ 

R7@ O=RND( 5S): PO=RNDC 20): G$="PETROL RISES BY "+STRS(O 24" CENTS......00. A "+STR 
$(PO+"% BONUS RESULTS TO AMPOL SHAREHOLDERS....... "Deg SDE $40 POM 188 DC 4): 


Fe de? 
x26 4 S22 


88@ GOTO119@ 


89@ GS="N0 REPORTS.........-.. MARKE" ST RBWE os «tna one a 

968 GOTO1198 

91@ O=RND<C 28 9+10:CS="ALCOR IS PLEASED TO ANNOUNCE.......... A BOOM IN THE AL 
LIMINILIM INDUSTRY. ...+.0 SHARES RISE BY "4+STRSCO04"% Till..." 006 20D 29400071 


AG OXDE 29 1 R20 2 ee 

920 GCTO1198 

930 GSe"AIRFAIRS SOAR !!!.. ce eee e “TAR cree ccccccncaes ": DCS 2200 8 2-0 CRNDC 18945 7 
1@@XD¢ 8 dd: KZ 8 =] 

948 GOTN1198 

956 O=RNDC 20 +18: GS="AMOCO....... NEW WELL SLINK,....... "#STRSCO2+"% INCREASE IN 
PRODUCTION" : DC 7 2=D¢ 7 94007108 9XDC 79: X20 7 D=2 

9€6@ GOT01190 

97@ GS="NO REPORTS.....e er eeee MARKET STABLE.....-ee0: " 

988 GOT01190 

990 R=RND¢ 15): ONRGOTO101@: 103@, 1188. 19358. 1088-1180, 1100, 118@.1128.1148.1198.1188 


»1168,1188 

10@@ GOTO119@ 

1@1@ O=RND¢ 20>: GS="TAR ANNOLINCES... 0. een eee A CLEAR PROFIT OF $"+STRSCO>+" @ 
Q2 AOG.....00-e FOR THIS FINANCIAL YEAR........"'DC8 2=D¢ 8 +0 € 0108 KDC 89>: K209) 
=2 


192@ GOT01198 

1@3@ O=RND¢C 1@>+RNDCS >: GS="AMDCO ANNOLINCES.... 

VALUE... eee 9 DC 7 RDC 7 2-6 C071 OR KDE 7D KZ2C 7 EL 
1948 GOTQ1198 

19%@8 O=RNO¢C 48 )-RND¢C 10): GS="BHP.......... EUREKA!!!....-..... A NEW VEIN HAS BEE 

N STRUCK. ..cecues » A 2 FOR 1 BONUS IS AVAILABLE FOR EXISTING SHAREHOLDERS....... 
2": TFVYC 6 SK THEND( 6 2=D¢ 6 K2 : ELSEDC 6 D=DC E 406 0.7100 KDE ED: X20 6 DZ 

1068 x26 6 =2 

1@7@ GOTO1198 

188@ O=RNDC 20 +RNDC 19 945:GS="MT ISA...-20+e2-. LEAD PRICES RISE!!!......... DUE 


RAR "+STRS(0)4+"% DROP IN SHARE 


TO SHORTAGE... ssceuee ": DCS sO 5 4 €07108 KDC 5 9: KZC 5 eZ 

1998 GOTO119@ 

119@ O=RNDC 18): GS="AMPOL....... TANKERS REFUSE TQ LOAD OR LINLOAD AMPOL FUEL..... 
PAY RISE CLAIM... .ccsesue ": DC 4 Dad 4 9-6 (07100 ¥DC 4) X20 4 1 


111@ GOTO11998 

112@ O=RND¢ 18>+RNDCS):GS="APPLE....... NEW TECHNOLOGY.....256K chiP ALREADY ON T 
HE MARKET.......SLUMP IN MICRO SALES......":D¢3)8D¢ 3 -¢€ (07188 *DC 3): X20 3 =1 
113@ GOTO119@ 

114@ O=RNDC 1@>+RNDC 5 +RNDC 8 >: GS="BALIXITE GLUT.......2.2-+-. ALCOR REDUCES PRICES B 
Y "4STRSCO)+"% ..... REFINERY’S REFUSE ANY MORE SHIPMENTS.....":2¢2.=D¢2)-¢((0/18 
@ MDC 2: XZ 2 D1 

1158 GOTO1190 

116@ O=RND¢ 2@ +10: GS="KMART SHARES INCREASE IN VALUE......... BY "+#STR#CO)+"%!! 
Vowcnccscesces BECAUSE QF BULK BUYING OF ITEMS........":DC 1 =D¢ 1 4¢ (07188 DC 1 
29: X20 1 2 

117@ GOTO119@ 

118@ GS$="NO REPORTS....... wos MARKET STABLE... cee” 

1198 PRINT@768, CHRS 31); «-FORLL=1TOLEN( GS): PRINT@7E8+LL, MIDS¢ GS.LL. 195 :FOROP=1T02 
@:NEXTOP : NEXTLL 

1208 GS="" 

121@ FOROP=1TOS@@:NEXTOP: RETURN . 


122@ PRINT: INPLIT"WHICH COMPANY <1 TO >"; bhi 
123@ IFWW=@RETURN 

124@ [FWW< 1 ORWM>SPRINTCHRS 27 \CHRSC 27 XCHRB 29); -GOTO1220 

1258 IFVVCWM< KPRINT"YOU DON’T QWN "5 CSC HH; :PRINTCHRS< 27 )CHRS¢ 27 CHRS( 29); ‘GOT 
o122e 

126@ IFWHW=@RETURN 

1278 IFWH< 1 ORWH >SPRINTCHRS 27 YCHRS 29); :GOTO122@ 

128@ INPUT"HOW MANY SHARES <@ = ALL>")SH 

129@ IFSH< >@GOTO1330 

13@Q IFSH=QTHENVVC Whi =Q MC K SMC K 40 D6 Wh 2XVHC WH > >: VHC Wid =@ 

131@ IFVH¢ WH VALOTHENVV< Whi =@ 

132@ RETURN 

1330 IFSH>VHCWWOPRINT"YOU DON’T QWN THAT MANY SHARES"; :PRINTCHRS< 27 CHRS( 29); :GO 
701288 

134@ MC K SMC K +C DC bill 2XSH 9 

135@ VHC id =VHC Wid )-SH 

136@ IF'VHC ll @@THENYYC WW =Q 

1378 RETURN 

138Q WC 1 SDC 1: UIC 2 DC 2D UCD ADC BD: LC 4 DCG LIC DCS UCE SDC GD: UC 7 RDC 7 UCB = 
D8) 

1398 MaUC 1): TFUCL )>MTHENMSLIC 1 > 

14@@ IFLUC 2) >MTHENM=LIC 2) 

141@ IFUC3)9MTHENM=UC 3) 

1428 IFUC 4) MTHENM=LIC 4) 

143@ LFUCS )>MTHENMSLIC 5) 

144@ IFUC 6 )MTHENM=LIC 6) 

145@ IFLIC7 )>MTHENM=SUC 7 > 

146@ IFUC 8 >MTHENM=UC 8 ) 

1478 RETURN 

1488 REN 

149@ GOSUB1360 

15@@ CLS 

1518 N=8 

1528 Lan 

153@ FORI=191TO767STEPES 

154@ PRINT@I.L: TABS 11)"~") CHRS( 149) 

155@ L=L-M/1@:NEXTI 

156@ PRINT@S32, 0; TABC 12 CHRS< 141 >: 

157@ PRINT@S45. STRINGS. 5A. 142) 

158@ PRINT@129." KMART" i CHRS¢ 143); "ALCOR "sCHRS( 143); "APPLE" i CHRS( 143 
)4 "AMPOL” | CHRSC 14395 "M. 1.M" i CHRSC 143); "B HP"; CHRSC 143); "AMOCO"s CHRS( 143); "T AA 
1598 FORC=QT07 

1608 X=DCC+1 > 

1612 FORY=QTOINT<( X/Mx3Q+. 5) 

162@ FORZ=@TOINT< 18Q/N )-2 

163@ SET¢ INT 1@Q/M 9042426, 49-Y > 

164@ NEXTZ: NEXTY :NEXTC 

165@ PRINT@96Q, "PRESS <NEWLINE> TQ CONTINUE” 

1660 IS=INKEYS: IF 1S=CHRS< 13 )G0TO1670 ELSE 662 

1678 CLS: RETURN 

168@ ’ STATUS FINDER 

1698 IFC=98Q=1ELSEIFC=1620=2ELSE IFC=226Q=3ELSE IF C=29QQ=4EL SE IFC=3540=5EL SE IFC=4 1 
BQ=GELSE IFC=4820=7ELSE IFC=S460=8 

L7Q@ IFXZ¢ @ =OTHENILS3 : RETURN 

L71@ TFKZ(Q)=1THENIL=1 : RETURN 

172@ IFRZ¢Q =2THENIL=2 : RETURN 

173@ RETURN 

1748 CLS 

175@ FORCO=1TOR 

1768 Y¥CCO =MOCCO> 

177@ FORNO=1T08 

178Q [FVYCNG =COTHENYY< CO = YC CO 400 NO DRVHC NO > 

1792 NEXTNO. CO 

18@@ PRINT@A, STRINGS 64, 140: 

121@ FORQQ=1TOR 


1829 PRINT@128. "PLAYER LIGUI® ASSETS INVESTMENTS TOTAL" ; 
1839 PRINT@192."------ 9 ---=--------- 0 ----------- === " 
1949 PRINT@192+¢ 64400 >, ABC OD). MOND. Y¥C OR). VHC AO MCAD >: 


185@ NEXTOR 

1860 PRINT@192+¢ 64499). STRINGS! 64. 142%, 
187@ PRINT: PRINT: INPLIT"ANQTHER SAME ”;0139¢ 
19929 IFLEFTS(O19S. 1 ="¥"THENIO 

1892 CLS:PRINT"BYE FROM THE STOCKMARKET !" 
198 END 


135 


136 


CADDYSHACK 


Caddyshack is a simple golf- 
playing routine. The player 
swings or putts by entering 
numbers, which then become 
the stroke lengths. The ball 
lands somewhere else on the 
green; if you've estimated your 
swing well enough it will land in 
the cup and you stroll on to the 
next hole. A running score is 
kept up throughout the play, 
and presented regularly. 

Much can be done to improve 
the program. For a start, it’s not 
noisy enough. The ‘goodbye’ 
routine (lines 470 to 500 inclu- 
sive) uses sound, certainly, but 
the WIN routine could do with a 
bit of racket. Try this: 380 FOR 
WIN =0 TO 9: GOSUB 520 520 
FOR NOISE=600 TO 750 


S REM - Caddyshack - 

7 CLS 

10 C=0 

20 FOR HOLE=1 TO 9 

30 J=INT(RND(0O)*12)-1 

40 SC=0 

SO FAR=INT(RND(O) 44)+2 

60 GOSUB 270 

79 INPUT "Stroke"; STROKE: CLS 
80 IF J224 THEN STROKE=—-STROKE 


90 J=J+INT(STROKE/INT (RND(O) XPAR) ) 


100 GOSUB 270 
110 SC=SC+1 


STEP 5: SOUND NOISE,2: 
NEXT NOISE: RETURN 

You might like the machine to 
sound a beep at the beginning 
of each hole — just add this to 
line 20: 20 FOR HOLE=1 TO 
9: BEEP 

You might like to change the 
PAUSE values. 

Use is made throughout the 
program of the delay subroutine 
at line 510. Note how the delay 
value, PAUSE, is set at the sub- 
routine calls, so that the length 
varies at each call. Thus, the 
delay initiated at line 400 will 
run fifty times, while the pause 
at line 49C will be two hundred 
runs long. 

Neville Predebon 
West Preston VIC 


120 FRINT "After that stroke, your score is now";SC 


130 IF Ji>24 THEN 70 
140 GOSUB 350 
150 C=C+SC 


160 CLS: PRINT: FRINT TAB(4)3;"Your score for";HOLE;"hole/s is"3;SC 


170 PAUSE=999: GOSUB 3510 
180 FOR LIN=1 TO 29 

190 FOR SFACE=1 TO LIN 
200 FRINT " "5 

210 NEXT SPACE 

220 FAUSE=329: GOSUB 510 
250 PRINT "Stand by-" 
240 NEXT LIN 

250 NEXT HOLE 

260 GOTO 420 

270 IF J*30 THEN J=30 


280 FOR NOISE=415 TO S45 STEF 5S: SOUND NOISE,2: NEXT NOISE 


290 PRINT TAB(3);"Far for this hole 


>=" PAR 


300 PRINT: FRINT TAB(C3) 5 "### HOLE NUMBER";HOLE; "###": FRINT: FRINT 


310 FOR PUTT=1 TO J-1 
320 FRINT " "3 
330 NEXT PUTT 
340 FRINT "o" 


350 PRINT "-~---------------------- -----~---------- ‘ 
260 RETURN 
370 PRINT "------------------------ Q-------------- 


380 FOR WIN=0 TO 9 


390 PRINT: FRINT TAB(C7)s "You got 


400 PAUSE=49: GOSUB 510 
410 NEXT WIN: RETURN 


in"3;sC;3; "strokes!" 


420 FRINT TAB(4)s;"That’s the end of that round." 

430 PRINT: PRINT TAB(4)3;"You scored";C 

440 PRINT TAB(4)3;"Your average was"; INT(C/9) 

450 PRINT: INPUT "Would you like to play another round"; ANS$% 
460 IF LEFT$(ANS#,1)="y" OR LEFTS$(ANS$,1)="Y" THEN RUN 


470 CLS: PRINT » 174, "GOODBYE!" 


480 FOR NOISE=830 TO 1046 STEF 4: 


490 PAUSE=199: GOSUB 510: CLS 


5390 FOR NOISE=1046 TO 830 STEF-4: 


SOUND NOISE,3: NEXT NOISE 


SOUND NOISE,3: NEXT NOISE: GOTO 470 


510 FOR DELAY=0 TO FAUSE: NEXT DELAY: RETURN 


ALIEN WIPEOUT 


1D REM 6 FE 9 FEE IE HE FE HE HE HE IE HE He HE HE HE HE HE HE HE HE HE HE HE HE SHE HE HE HE TE HE HE HE IE HE EE HEE HE EE EE HE EE EE 


202 REM** AL TEN WIPEOUT e% 
30 REM#* By Wayne McCullough ee 
40 REM*#* Darwin N.T. + 
5Q@ REM*+#* Originally written i6th May 1982 ee 
50 REM** Revised 8th October 1983 + 


7D REM e436 1 HE Fe HE EI HEH HE IE SE IE HE FE TE Fe IE FE IE SE IE TE SE TE ETE SE FE IE FE IE ETE TE FE IE EE HE TE TE HE IEE EE HH EH eH 

B8@ CLEAR10@0: HS=0 

9@ CLS: FRINTTAB(2@)3"A 1 i en Wipeoiu t"sFRINTTAR(2@) ; STRINGS (25,134) : GOSU 
B9I90 

10@ A1S=CHRS$ (153) +CHR$ (191) +CHR$ (157) +CHR$ (145) : ALS=CHRS (166) +CHRE (1867) +CHRE (179 
) +CHR$ (132) 

110 AZ$=CHRS (1546) +CHR# (183) +CHRS$ (157) +CHRS (148) : A4SS=CHRS (140) +CHRS$ (183) +CHR$ (157 
}+CHR# (132) 

120 AS#=CHR$ (156) +CHR$ (175) +CHRS (141) +CHRS (148) s ASS$=CHRS (152) +CHR$ (182) +CHRE (157 
) +CHRS (144) 

13Q@ A7$=CHRE (134) +CHR$ (189) +CHRE (151) +CHRS (152) : ABS=CHRS (157) +CHRE (183) +CHRE (187 
) +CHR$ (174) 

140 AIS=CHRE (1466) +CHRS (157) +CHR$ (183) +CHR$ (132) 3 B1S=CHRE (182) +CHRS (190) +CHR? (182 
)+CHR$ (148) 

150 B2$=CHR$ (158) +CHR$ (191) +CHR# (173) : BSS=CHRS (140) +CHR# (179) +CHRE (166) +CHR# (155 
}+CHRS (132) 

16@ B4¢=CHRE (141) +STRINGS$ (2,153) +CHRS (133) s BSS=CHRS (156) +CHRS (179) +CHRS (153) +CHR 
$(133) 

17@ B6$=CHRS (167) +CHR$ (183) +CHR$ (133) s B7$=CHRS (174) +CHRS (179) +CHR$ (157) : RB#=CHRS 
(153) +CHR$ (166) : B9S$=CHRS (155) +CHR# (167) 

180 C1$=CHR$ (182) +CHR$ (180) +CHRS (182) +CHRS (148) : C2#=CHRS (166) +CHRS (167) +CHRE (132 
): C3S=STRINGS (2,166) +CHR$ (132) 

19@ C4$=CHR$ (140) +CHRS (174) +CHR$ (179) +CHR# (191) +CHRE (179) +CHRS (191) +CHRE (179) +CH 
R$ (157) +CHR$ (140) 


2O@ FRINTAI1$s: wo ye 3 ALF: uw Ww H AS; “ te H A4SS; iy “ 7 ASS; i) we H AGS; rr} ry H A7$; W we : ASF: u uF 4 AIS; ow tt 
sBi¢;:" ".BD$:" ws aF3" "sB4at 
210 FRINT@256,"Aliens have invaded the Earths skys, you must aim your photon 1 


aser and destroy as many aliens as possible in the sixty" 

220 FRINT"seconds which the Earth has left." 

23@ FRINT"Use the arrow keys to aim, and the space bar to fire. Good luck'"s 

240 FORSOS=1T04: GOSUB1@OS50: NEXTSOS: FOKE16396,175: REM DISABLE BREAK 

258 FRINT@S71,CHR# (176) s;CHRS (140) s CHRE (131) s CHRS (131) 3s PRINT@633,CHRS (160) 3 CHES ( 
1374); CHR# (152): CHRS$ (121): CHRE (134) 3 CHR (164): 

260 FRINT@697 , CHR# (138) s CHRE (146) s CHRS$ (140) s CHRE (131) s CHR (140) s CHR$(129):: PRINT 
@762 ,CHR# (120) +CHR# (127) +CHR$ (164) +CHR¢ (176) +CHRE (176) 

270 FRINT@GS9@,C4#; :FORX=487T0116: SET(X, 28) : RESET (X-1,28) sNEXTX 

280 FRINT@B32,"SIR' We have recieved a communication from the alien mothership": 
FRINTCHR$ (34): "Frepare to die human'!";CHR# (34) 

290 GOSUB1090 

300 FAS="/ "+CHRS (92) +CHR# (26) +STRINGS$ (7,24) +CHRS (92) +" 
u /"+CHR# (26) +STRINGS (7,24) +"/ 
ING# (7,24) +STRING# (7,232) 

310 ES$=""TESE=""3SE4R=S" "2: FORX1=17TO7: E3S=E5S+CHRS$ (RND (30) 4+161)+" “sNEXTX1:FORX1=1 
TO7SE4F=E4e+" "+CHRS (RND (35) +129) :NEXT: FORX1=17TOS: ES#=ES€+CHRE (RND (30) +157)+" ": 
NEXTX1:CL#=STRING$ (15, 22) 

7220 BASE=475: TIME=60: S=O 

“30 CLS: SET (54,0) :SET(126,3):SET(10,5) :SET(94,8):SET(96,11):SET(76,25) : SET (34,28 
):SET(102%,35):SET(2,28) :SET(61,39) 

340 FRINT@96@, "Score "3S:STRING# (14,22); "Hiscore ":HS;STRING$(14,32):"Time Left" 
7 INT (TIME) ; SFRINTGBASE , FAS; : LBASE=BASE 

750 Z=RND (21) :ONZGOTO3260, 770, 280, 790,400,410,4280,430,440,450, 460,470, 480,490,500 
621080,520,5380,548,550,560 

760 A#=A1#:GOTOS70: REM ALIEN 1 COMES ON SCREEN 

370 A#=AL¥FE:GOTOS7@: REM ALIEN 2 COMES ON SCREEN 


/"sFRS=CHRS (92) + 
"+CHR$ (92) sFCS=STRINGS (7,22) +CHR# (26) +STR 


Alien wipeout is another of the 
‘shoot-em-up’ type games for 
the TRS80/SYSTEM 80. It re- 
quires approximately 7K and 
(with minor modifications) will 
run on both 16K and disk based 
machines, the listing here being 
the 16K version. The game it- 
self is pretty self explanatory 
but here are a few hints which 
might make you a better player: 
1. The aliens fuel store is lo- 
cated at the left uppermost 
point on the aliens ship and get- 
ting this point within your sights 
will certainly destroy the alien. If 
you hit the alien anywhere other 
than this point the impact will 
only cause minor damage. 

2. ‘Warping’ from one side of 
the screen to the other disrupts 
your firing and your viewfinder. 
Although you might think you hit 
the alien when in this position it 
is quite possible that the un- 
usual space time continuum of 
hyperspace will have absorbed 
your shot. 

3. When the situation arises 
that the alien is on the opposite 
side of the screen don't waste 
your precious seconds by head- 
ing straight for him. Instead 
‘warp’ from one side of the 
screen to the other and you will 
usually be able to catch him 
faster. Although this is a simple 
and quite obvious procedure | 
have included it among your 
hints for the simple reason that 
it is incredibly easy to forget in 
the heat of battle! 

Finally for those of you who 
have disk based systems 
please note the following mod- 
ifications to the program. 

Line 80: Insert a CMD*“T”: in 
front of the CLEAR command. 
Line 240: Replace the 
POKE16396,175 with 
CMD"BREAK.N” (or the equi- 
valent command for your DOS) 
Line 970: Replace the 
POKE16396,201:END with 
CMD"S” Line 990: Replace the 
POKE16526,62:POKE16527,64 
with 

DEFUSRG = 16446 

DEFUS 

Lines 1010-1120: Replace all 
USR(0)’s with USRO(0) 


Wayne McCullough 
Darwin NT 
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V 
ALIEN WIPEOUT 


280 A#=A7Z#:GOTOS70:REM ALIEN 3 

290 At=A4#:GOTOS7@0:REM ALIEN 4 COMES ON SCREEN 
400 A#=AS#:GOTOS70:REM ALIEN 5S COMES ON SCREEN 
410 A#=A6#:GOTOS70: REM ALIEN & COMES ON SCREEN 
7 
8 
9 


COMES ON SCREEN 


420 A#=A7$:GOTOS70: REM ALIEN COMES ON SCREEN 

430 A#=A8F:GOTOS70: REM ALIEN COMES ON SCREEN 

440 A#=A9S: GOTOS70:REM ALIEN COMES ON SCREEN 

450 At=Hh1#:GOTOS7@:REM ALIEN 1@ COMES ON SCREEN 
460 A#=BR2¢:GOTOS70:REM ALIEN 11 COMES ON SCREEN 
470 A#=B3#:GOTOS7@: REM ALIEN 12 COMES ON SCREEN 
480 A#=B4%:GOTOS70: REM ALIEN 13 COMES ON SCREEN 
490 AF=BS#:GOTOS70: REM ALIEN 14 COMES ON SCREEN 
300 A¥=B6$:GOTOS70:REM ALIEN 15 COMES ON SCREEN 
510 AS$=B7¢:GOTOS7@: REM ALIEN 16 COMES ON SCREEN 

520 A¥=B8$:GOTOS70:REM ALIEN 17 COMES ON SCREEN 
5320 At=B9#:GOTOS7@:REM ALIEN 18 COMES ON SCREEN 
540 A#=C1#:GOTOS70:REM ALIEN 19 COMES ON SCREEN 
S50 A#=C2$:GOTOS7@: REM ALIEN 2@ COMES ON SCREEN 
560 AS=C3$:REM ALIEN 21 COMES ON SCREEN 

5S7@ A=RND (888) : B=A:PRINTGA,AS; 

580 F=PEEK (14400): IFF=Q@THEN78@: ° GOTO MOVING ALIEN 
S90 IFP“ >128THEN710:REM FIRE 

600 FRINT@BASE , FBS; :PRINTGA, AS; : GOSUB1010: IFA>BASEANDA< BASE+70RA >BASE+464ANDA< BAS 
E+71THEN620 ° 

610 FORI=1TOSO: NEXTI:FRINT@BASE , FAS; :GOTO780: ‘GOTO MOVING ALIEN 
620 P1=A-3:P2=A-67: PS=A+61:P4=A-128: PS=At+128: PRINTGP1 ,E4$;5 : IFP2>Q@ANDP2< 1024 THENP 
RINTGF2 ,E3$; 

630 IFPS20ANDP3< 1024 THENPRINTGPS ,ES$3 

640 IFP4:QANDP4< 1024 THENPRINT@P4 ,ES$; 

650 IFFS2OANDFS< 1024 THENPRINT@GPS,ES$3 

66@ ONRND (3) GOT0670, 680,699 

67@ GOSUE111@:GOTO700 

688 GOSUB1020: GOTO7@0 

698 GOSUR1040 

700 S=S+1: IFS*HSTHENHS=S: GOTO330: ELSE330 

710 IFP=8THENBASE=BASE-64: GOTO74@ 

720 IFP=16THENBASE=BASE+64: GOTO760 

730 IFP=32THENBASE=BASE-2: GOTO7460 


740 IFF=64THENBASE=BASE+2: GOTO760 

75@ GOTO78@: ‘MOVING ALIEN 

760 IFBASE >BS880RBASE< @THENBASE=LBASE: GOTO78@: ‘MOVING ALIEN 

770 PRINT@LBASE ,FC#; :PRINT@BASE,FAS; :_LBASE=BASE 

78@ ‘ MOVING ALIEN 

790 Z=RND(4):0N Z GOTO 800,810,820,830 

802 A=A+64: GOTO840 

810 A=A-64:GOTO84@ 

820 A=A+2:GOTO840 

830 A=A-2 

840 IFA:88B80RA< OTHENA=B: GOTO79@ 

850 PRINTGB,FC#; :PRINTGA, AS; : B=A: TIME=TIME-. 4: IFTIME< =@THENSSO 

860 SET(54,0):SET(126,3) :SET(10,5) :SET(94,8) :SET (96,11) SET (76,25) : SET (34,28):SE 

T(103,35) :SET(2,28) : SET (61,29) 

870 FPRINT@960,"Score ":S:STRING€(14,32)3;"Hiscore "3;HS;STRING$(14,32); "Time Left" 

s INT (TIME) 3: IFINT (TIME) < }OTTHENDV=USR (6404) : OT=INT (TIME) : GOTOS8@ELSEGOTOS8@ 

880 GOSUBR1120:REM END 

890 CLS:PRINT@23,"G6 ame Over":PRINT@87, "============S=S="3 PRINT: PRINTTAB(2 

4):"Your Score =":S:PRINTTAB(24) ;"Hi-Score ="3HS;:FRINT:PRINT 

900 IFS: STHENFRINT"The aliens have totally taken over the planet and you area 
discrace to the armed forces of the Earth!":GOSUB1100: GOTO9S@ 

910 IFS: 7THENFRINT"You managed to save one part of the Earth...Siberia!":GOSUBI11 

@@:GOTO95S@ 

920 IFS“ 10THENFRINT"Not bad! You managed to save the entire southern hemisphere 

fromthe aliens!":GOQSUB108@: GOTO9S@ 

930 IFS 1STHENFRINT"Very Good! You managed to repel the aliens from all of the 
Planet except for a large island in the southern hemisphere called Austr 

alia! ":GOSUB1020: GOTO9S@ 

940 IFS>=15THENFRINT"FANTASTIC! You have destroyed all the aliens and the human 


race has a home once more!!!'!":FORZZ=1TO2: GOSUB1110:NEXTZZ 
95@ FRINT:FRINT:PRINT"SIR! Long range sensors report a wall of enemy craft head 
ing this way. Do you wish to take comman of this mission?";CHR#(95); 


960 AF=INKEY#: IFAS="Y" THENS2Q0ELSE IFAS="y" THENZS20EL SE IFA#="N" THENO7@ELSEIFA#="n"T 
HEN97@ELSE960 

970 CLS: FOKE16296,201:END 

980 REM #**##*###*% SOUND ROUTINES 

998 FORC=164467T016474: READD: FOKEC,D:NEXTC: POKE16526,62:POKE16527 , 64: DATAZ@5,127, 
10,62,1,14,0,237,91,61,64,69,47,2320,3,179,211,255,17%,40,4,16,246,24, 242,37,32,24 
1,201 

12@@@ RETURN 

101@ FORC=1 TOS: DV=USR (332) : DV=USR (32000) : DV=USR (333) : NEXT: RETURN 

1020 FORC=1T05S: DV=USR (2575) : DV=USR (2560) : FORD=1T010: NEXT: NEXT: RETURN 

1020 FORZZ=1T0S: FORC=STO1ISTEF-1: DV=USR (3333/C) :NEXTC,ZZ: RETURN 

1040 FORC=200TO2Q@@@STEP10@: DV=USR(C) : NEXT: FORC=1T03+RND (9) : DV=USR (2580-C) : FORSR= 
1TO3: DV=USR (260) : NEXT: NEXT: RETURN 

105@ FORC=1TO2: GOSUB107@: NEXT: FORC=1TO2: DV=USR (12819) : GOSUB1060: NEXT: FORC=1TO2:G 
O0SUB1907@: NEXT: FORD=1 T0100: NEXT: RETURN 

106@ FORD=1TO25: NEXT: RETURN 

107@ DV=USR (1299) :GOSUB1060: RETURN 

108@ DV=USR (7789) : DV=USR (77@7) : DV=USR (7713) : DV=USR (7723) : DV=USR (10279) : RETURN 
1090 FORC=4600TOS20@STEP—-1: DV=USR(C) : NEXT: FORC=S20TO6Q0@: DV=UISR(C) :NEXT: RETURN 

1100 FORC=1TOS: DV=USR (13055) : FORD=1TOS@: NEXT: NEXT: RETURN 

1110 FORC=390TO26@STEP-19: DV=USR (C) : NEXT: FORC=260T0260: DV=USR (C) :NEXT: RETURN 
1120 FORC=1 TOS: DV=USR (25675+C#3@) : GOSUB1060: NEXT: C=USR (25855) : RETURN 


1130 END i 


pA 


oy 


y 
y, 
% 


Sit 


was 


CROP 


i. 


All colours may be selected and 
provision for text input which 
exceeds the maximum line 
length has been made in the 
following manner: 

Text is input at line 130 of the 
program and lines 150-190 test 
the length of variable A$(0O) in 
relation to the size of lettering in 
use. They transfer control to 
line 300 if the text exceeds the 
maximum characters allowable 
for the selected size. 

The program then requests a 
change of letter size, or amend- 
ment of text. It is then displayed 
on the screen, with the excess 
characters in brackets. 

Lines 11 to 16 may be de- 
leted when the user is familiar 
with the program use. The ro- 
tate command enables printing 
downwards and that section of 
the program may be removed if 
not required. 

The program is extremely 
simple to use, and owners will 
need only spend a minimum of 
time to become familiar with it. 


Robert Christian 
Harbord NSW 
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120: " 


12] 


138: 


ae ae 
+LOCK 
:CLEAR 
:PAUSE " 


*k T 
ext Editor *x" 
>PAUSE "Copuyr. 
R. Christian 
1983" 


>PRINT "(T)= Te 


xt" : 
>PRINT "(C)= Co 
lour" 
*>PRINT "CS)= Si 
ze” 
>PRINT "CRI= Ro 
tate (directio 


no” 


>PRINT "CLO= Li 


ne Feed" 


*>PRINT "(k= Cu 


rnent Status" 


>DIMN A$(B)k36 
:A$S=INKEYS$ 
>WAIT @:PRINT " 


CTIZCOIZCSIZCOCR 
I7 CLICK)" 


> 1F CAS="L")+¢A 


S"T")4+(AS="C" 
)+(AS="S")+ (AS 
="R")4+(AS="*") 


<>1THEN 38 

> IF AS="T" THEN 
GOTO "T" 

> IF AS="S"THEN 
GOTO "S" 

> IF AS="C" THEN 
GOTO "C" 


> IF AS="R" THEN 


GOTO "R" 


> IF A$2"L"THEN 


i 


2 1F AS="*" THEN 


488 


: IF AS=""THEN 3 


2) 


:"R":GRAPH : 


INPUT "Rotate? 
"SRIF Rd>4 
THEN 188 


>ROTATE R: GOTO 


38 


"S": TEXT 


INPUT "Size? " 
;S:1F S<10R S> 
STHEN 118 


:CS12ZE S:GOTO 3 


2 

G's TEXT 

INPUT "Colour? 
'sCeiF €24 

THEN 128 


:COLOR C:GOTO 3 


4) 

"T"3 GRAPH : 
COLOR C:CS12E 
S:ROTATE R 


155% 


168: 


178: 


175: 


188: 


185: 


198: 


191: 
288: 


219: 


258: 


385: 


TEXT EDITOR 


(For Sharp PC-1500, Tandy PC-2) 


:A1=35:A2=18:A3 


=12:A4=9:A5S=7: 
AG=6: A7=5: AB=4 


> INPUT "Text? " 


3 A$ CB) 


: IF S=]AND LEN 


A$(CB)>AITHEN 3 
22 

IF S=2AND LEN 
A$CB)>AZTHEN 3 
2B 

IF S=3AND LEN 
A$(B@)>A3THEN 3 
22 

IF S=4AND LEN 
A$(CB)>A4THEN 3 
ao *% 

IF S=SAND LEN 
A$CB)>SASTHEN 3 
214) 

IF S=6AND LEN 
A$(B)>ABTHEN 3 
22 

IF S=7AND LEN 
A$CB)SAPTHEN 3 
214) 

IF S>=8AND LEN 
A$(B)>ABTHEN 3 
214) 

IF S<1GOTO 425 
INPUT “Number 
of doubles? "3 
D 

FOR J1=@8TO D-]: 
GLCURSOR (], 1) 
>LPRINT ASCO): 
NEXT ] 

ey Oe TERT 

CSIZE S: INPUT 
"Line Feed? "; 
L 

IF S<]1THEN 425 
LF L: GOTO 38 
PAUSE "Delete 
Chr(s) in Brkt 
Si" 


: PAUSE "or chan 


ge size" 
:WAIT : IF S=] 
PRINT "C"; 


RIGHT$ (AS(B), 
LEN A$(B)-Al); 
")";GOTO 38 

IF S=2PRINT 
LEFT$ (AS$(B),A 
2)3;"C";RIGHTS$ 
CA$(B),LEN AS 
Bd-A2);")": 
GOTO 38 


318: 


320: 


338: 


335: 


420: 
425: 


Bytes used: 


IF S=3PRINT 
LEFT$ (A$(B),A 
3);"C";RIGHTS$ 
(A$(B),LEN AS 
@)-AZB);")": 
GOTO 38 


> 1F S=4PRINT 


LEFT$ (A$(B),A 
4); "C"SRIGHTS 
(A$(B), LEN ASC 
Bd-A4);")": 
GOTO 38 

IF S=SPRINT 
LEFT$ (CA$(B),A 
5); "C";RIGHT$ 
CA$(B), LEN ASC 
B)-AS)I;")": 
GOTO 38 


> 1F S=6PRINT 


LEFT$ (A$(@),A 
6); "C"SRIGHT$ 
(A$(B), LEN AS 
B)-AB);")": 
GOTO 38 

IF S=7PRINT 
LEFT$ (A$(8),A 
72; "C"ZRIGHTS 
(A$(B),LEN ASC 
Bd-A7)5 "dD": 
GOTO 38 

IF S>=8PRINT 
LEFT$ (A$(B),A 
8);"C";RIGHTS 
(A$(B),LEN ASC 
B)-ABI;")": 
GOTO 38 


> 1F C=@THEN LET 


B$="BLK" 


> IF C=1THEN LET 


B$="BLU" 


> IF C=2THEN LET 


B$="GRN" 


>1F C=3THEN LET 


B$="RED" 


WAIT 
*PRINT "C="3;B$; 


"7S="3S5"7R="5 
R3"/LFH"5L 
GOTO 38 

PAUSE "No Size 
Signal Given" 
>E07TO "S" 


1789 
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PRIME NUMBERS 


(For Sharp PC-1500) 


After trying the Benchmark 
Prime Number test and record- 
ing an earthshattering 4520 sec 
on a Sharp 1500 | feel that | 
cannot seriously take up the 
speed challenge a Your Com- 
puter correspondent put out in a 
recent issue. However | am 
able to comment on improve- 
ments that enabled me to re- 
duce the time taken to 84 sec. 
My first thoughts were to im- 
prove the program along the fol- 
lowing lines:- That trail di- 


S:"A"CLEAR :WAIT 
@:DIM D$¢3, 249 
)*1,0<255) 

10: T=TIME 

35:FOR N=3TO 31 
STEP 2 

40: IF JN<2THEN 68 

45:FOR K=2TO JN 

S@: IF N/“K=INT (N/ 
K>THEN 65 

SS5:NEXT K 

68: D(A)=N, A=A+! 

65:NEXT N 


visors need only be primes 
greater than the square root of 
the number being tested. 

That even numbers can be 
omitted from the routine al- 
together. 

This reduced the time to a 
more respectable 432 sec. 

At this point | remembered a 
procedure usually taught to 
year 7 pupils called the Sieve of 
Eratosthenes (also a major ben- 
chmark for computers,Ed.). The 
enclosed listing is the result. If 


a similar improvement is possi- 
ble for other machines then | 
would expect to see a time of 
1 sec. 

The program sets up a matrix 
of 1000 elements, then sets up 
a table of primes greater than 
32. Odd composite numbers 
are then eliminated by repeated 
addition. Printing is carried out 
in a loop. After all, the challenge 
did not say that you had to be 
able to read them! 

lan Mcintyre 
Mooroolbark VIC 


78:FOR I=@TO A-1 
75:FOR J=D¢I)*DC1 


)TO 18@8@STEP D 


110: 
115: 


FOR J=@8TO 249 
STEP 2 
IF D$¢J, Jd="*" 


(1)*2 THEN 125 
58), Y=J-250*xX- ie aa D 
1 - 
: =n ye 125:NEXT J 
:D$ = 
ee - 13@:NEXT I 
95:NEXT | | 
: noms | 135: S=TIME 
eae ne thas 148:WAIT :PRINT L, 
185:FOR 1=@TO 3 INT ((DEG S- 


DEG T)*3682) 


-t45: END 


MACHINE CODE MONITOR 


(For Sharp PC-1500) 


Minimum System: PC-1500 with 
8K RAM and cassette interface/ 


printer. 
Recommended Reference: 
Sharp PC-1500 Pocket 


Computer Technical Reference 
Manual. 


machine code monitor for the 
Sharp PC-1500 computer. It 
includes facilities to examine 
and/or change memory 
contents, printout the contents 
of specific areas of memory, run 
machine code programs and 


CPU registers before, or after, 
running a machine’ code 
program. 

The program is controlled by 
selecting the required function 
from a six item menu using the 
function keys. 


Pocket Monitor is a_ basic 


set or examine some of the 


10 "M"PAUSE "MONITOR.1 9710/83" 19@ IF ST=67THEH "WR" 
20 REM INITIALISATION 195 IF ST=72THEN "MH" 
36 GOSUB "IN" 206 IF ST=32THEN RETURH 
40 REM COMMAND 21@ GOTO 168 
50 "CM"BEEP 2:WAIT @:PRIHT " ME PR 2270 "HX" AD=AD+1:GOTO 120 
RE GO MO HELP" 230 "LS"AD=AD-1:GOTO 126 
6@ CM=ASC INKEY£ -16:1F CM<10R CM>=7T 246 "WR" INPUT "DATA: "GDA 
HEN 6@ 250 IF Ig="@6"POKE AD.DA: GOTO "Nx" 
7O@ WAIT 266 POKE# AD.OAR:GOTO "NK" 
66 ON CMGOSUB "ME". "PR","RE", "GO". "MO 265 "MH"WAIT :GOSUB "HE": GOTO "ME" 
", "HE" 270 "PR"REM PRINT 
9@ GOTO "CM" 2386 IMPUT "FROM: "3 SA 
106 "ME"REM MEMORY 296 IMPUT "To: "ZEA 
11@ INPUT "ADDRESS: "> AD 292 LPRINT "* DATA FROM ME"; Ii" *" 
12@ IF I%="@"LET DA=PEEK AD:GOTO 125 DOF LPRINT "aammnimwnmumenmeme " 
122 DA=PEEK# AD 295 IF M$="H" THEN 338 
125 IF M$="D"WAIT @: PRINT "ME"; 1$;5 AD; " 298 AD=SA 
-"| DAG" CH for help >": GOTO 168 368 FOR 2=6TC0 3:IF IS="Q@"LET Dt 25=PEEK 
136 J=DA:GOSUB "HEX2" : DAS=FS AD: GOTO 31a 
14@ J=AD:GOSUB "HEX4": ADS=Fs 305 DC 2Z5=PEEK# AD 
156 WAIT @:FRINT "ME" 165" &"GADSi"°&" 31@ AD=AD+1:HEXT 2 
iDAFS" CH for help >" 315 USING :LPRINT SAS": -" 
16@ ST=ASC INKEYS 326 USING "##4#":>LPRINT " ";DC@5;0619; 
174 IF ST=1@00R ST=13THEHM "NX" OC 2950039 
180 IF ST=11THEN "LS" 322 SA=SA+4 


S. Corrigan 
Lawson NSW 


MACHINE CODE MONITOR 


325 
32? 
330 
335 
340 
345 
358 
368 
378 
375 
388 


IF SA>=EATHEN USING ‘RETURN 
GOTO 388 

J=SA: GOSUB 
FOR 2=@TO 3 
IF 1$="O"LET DC Z>=PEEK SA:GOTO 350 


D¢ Z5=PEEK# SA 


"HEX4"  SAS=FS 


JeD¢Z>:'GOSUB "HEX2" DS 2 =F $ 
SR=SA+1 

NEXT -2 

LPRINT "&"; SAS: ":-" 

LPRINT “  &"508C@);".8"5D8C 195 "8 


", DSC 295", &"5 0803) 


378 


ISSINKEY$ 


580 IF [$="1"OR 1$="@8" PAUSE 


ER=ME" 


i 1%: RETURN 


598 GOTO 578 
"RE"REM REGISTERS 


680 
618 
STERS? 
628 
630 
648 
645 
658 


WAIT @:' PRINT 


RS=IHKE’S 


IF R$="S"WAIT «GOTO 748 
IF RS<>"R" THEN 628 


WAIT 


XLePEEK &57AS: XH@PEEK &57A6 


"MEMORY AR 


"CSET or CROEAD REGI 


39@ IF SA>=EATHEN RETURN 668 AC=PEEK &57A7:ST=PEEK &57A8 

395 GOTO 330 670 IF M$="H"THEN 720 

462 "GO" 680 PRINT "H=">XHs" XL2"G XL 

410 POKE &aS7EL ’ RAS, &aS7, LAS, aOR, &AS. &57 698 PRINT “ ACC. =" j AC: " STATUS=" ; ST ; RET 
,2AG, &8B URN 
» RARE &S? B "HEX2" : XL$=F$ 

43@ POKE &57F1,8A7,&FD, &AR. &AE, &57.8A8 718 J=AC:GOSUB "HEX2" -ACS=FS:J=ST:GOSU 
804, &.AE B "HEX2": ST$=F$ 

442 POKE &57F9,857. 6A, 684, &ARE, 457. UAG 720 PRINT "XH=@"s7 *HSs" XL=&"5 XLS 
,&9IA 730 PRINT "ACC. =&"; ACS)" STATUS=4"; STS 

45@ INPUT "START ADDRESS: "ij SA : RETURN 

462 SHeINT (SA’256>:SL*SA-INT ¢ SH*256 > 740 INPUT "H=" > XH INPUT "ML="5 XL 

75@ INPUT "ACC.="ZAC 

470 POKE &37ED,SH.SL:REM SET SJP 760 POKE &57AS. XL, XH, AC 

480 CALL &57E1 778 RETURN 

490 RETURN 8@0 "HE"PRINT "SteP helP inenu with ENT 

500 "MO"REM SET CISPLAY ER" 

51Q@ WAIT @:PRINT "DISPLAY CHOEXK OR (Dd 810 BEEP 1:PRINT " ME “-~ memory..... 
EC?" gil 

520 MSezINKEYs 830 PRINT "...steP addr: down arrow" 

530 IF M$="H"PAUSE "HEX DISPLAY" GOTO 84@ PRINT "...back uP addr: uP arrow" 
562 850 PRINT "...to change, Press C" 

540 IF MS="D"PRUSE "DECIMAL DISPLAY" :G 86@ PRINT "....Press SPACE to exit." 
OTO 562 865 IF ST=72THEN RETURN 

55Q GOTO 318 870 BEEP 1:PRINT " PR <-- Print m 

S6Q PRINT "ME area, (@) or ©1097" emors." 

PRINTOUT 1. PRINTOUT 2. 


142 


* DATA FROM MES x 


&S7AS' - 22441 :- 
LAS. &57.8&A4, &RE 
&357AD : - 22445 '- 
&37,8A3,&4A,&62 87 163 
&357B81°- 22449 :- 
&BAL&57, &BE,&4A 186 87 
uS7B5'- 22453 :- 
&£.60,846,8&76,.4AS 96 72 
&357B9'- 22457 '- 
&57.8&A3,&035, a5 87 163 
&57BD : - 22461 :- 
&05.&05,8&BE, &57 213 213 
&S7C1'- 22465 :- 
aCE.&@E.&44,8AS 206 14 
au3S7CS:- 22469 '- 
&57.8A3,&89,.&OF 87 163 
&S7C9:- 22473 '- 
&BE.&57,8CE. &0E 198 87 
&S7CD'- 22477 :- 
&9A,&87,8&0A,&83 134 183 
&S7D1:- 22481 :- 
&03,.8&B3,%&30,&9A 3 179 
&57D3 :- 22485 :- 
£63,836, 889A. &84 179 34 
&37D9: - 22489 :- 
&RE.&357, RAS, &04 174 87 
&37D0' - 22493 : - 
BAE. 8357. &A4,&9A 174 87 
&S7E1'~- 22497 :- 
AS. &57, AS. &0R 165 87 
&S7ES: ~ 22501 :- 
&ZAS,. 857, AG. &88 165 87 
&S7ES' - 22505 : - 
AS, &57,8&A7, &Be 165 867 
&S7ED : - 22509 ' - 
&57.&FF,&RE. &57 87 235 
&S7F 1: - 22513'- 
&A7,.&FD, &RA. &RE 167 233 
aS7FS: - 22517'- 
R37.8%&A8,&O4. RE 87 168 
&S7FO: - 223521 :- 
&357.&AS,&84, &RE 87 165 
&S7FD: - 22525 '- 
&357.8&AG6,&9A, &.08 87 166 


* DATR FROM MES * 


165 87 164 174 


74° «98 
74 
165 


213 


165 


880 BEEP 1:PRINT " 
steers" 
890 


RE <--regi 


PRINT "..s@t or read ACC. & X...." 
895 
988 
918 


PRINT "..before or after GO." 
BEEP 1:'PRINT "run Prog.---> GO" 
BEEP 1:'PRINT "mode: dec“hex --->MO 


920 
938 
1008 
1818 
1828 
1038 
1048 
1058 
1862 
1878 
1089 
1898 
1188 
1118 
STRING 
11280 POKE 
»&4A,&62 
1130 POKE 
»&76 
1140 POKE 
, O08. &BE 


115@ POKE 
»&A3. &B9 
1160 POKE 
»&B7,&8A 
1178 POKE 
»&36,89A 
1180 POKE &5708,864,.8&AE,&57.&A3, 804, &AE 
»&57. &A4,&9A 

1198 CLEAR ‘DIM DC4):DIM Ds 4) 

1280 MS="H": Tg<"Q" 

1218 RETURN 


PRINT "...also sets MEQ or ME1." 
RETURN 

“HEX4"F $=" 9000" 

IF JO32767LET Je J-655396 

CALL &87D8., J 

CALL &57B4 

CALL &3S7A9 

RETURN 

“ HEX2 " FS= 1 1%) “wt 

POKE &57A3, J 

CALL &357B4 

RETURN 

"IN"REM INITIALISE 
REM MACHINE CODE, CONVERT HEX TO 
&357A9,8AS,&57,6A4, &RE,&57,&A3 
&£57B1,88AR, 837,886. 84A, &60, &49 


&57BS.&AS,&57,.8AS,8&05,8&D5,&03 
&57CO,.857,8CE,&0E.844,.8AS.857 
&57C8, OF. &BE,.&57.8&CE.&@E.&9A 
&57D8,8&83,&03,%B3.%&30. 849A, &B83 


MACHINE CODE SUB-ROUTINES 


**% CONVERT HEX NUMBER TO STRING IN FS 


&S7AS &ASS7AS C2>LDA © &57A4 > 
&57AC &RAES?AS STA ©&57A3> 
&uS7AF &4A62 LOI ML &62 ADDRESS FS 
&57B1 &BAS7B6 JMP BT 
&57B4 &4A60 C1OLDI XL &60 ADDRESS F& 
&57B6 &4876 BT OLDI XH &76 ‘ " ‘i 
&S57BS &ASS7A3 LDA ©&57A3 > BYTE TO BE ... 
&57BB &DS SHR CONVERTED. 
&578C &D5 SHR LEFT NIBBLE 
&57BD &DS SHR 
&57BE &D5 SHR 
&S7BF &BES7CE SJP AS CONY. TO ASCII 
&57C2 &OE STA ©) STORE IN F$ 
&57C3 &44 INC x 
&57C4 &ASS7AS LDA ©&57A3 > BYTE TO BE.... 
&S7C7 &B9OF ANI &@F CONVERTED, RIGHT 
&S7C9 &BES?7CE SJP AS 
&3S7CC &BE STR (x) STORE IN F$ 
&57CD &9A RTN 
&S7CE &B7GA AS CPI &@A >& OAR? 
&5708 &8303 BCS LT YES 
&5702 &BI38 ADI A &30 @TO 9 
&357D4 &9A RTN 
&5705 &8336 LTOADI A &36 A TO F 
&5707 &9A RTN 

ROUTINE TO SAVE VARIABLE IN MEMORY 
&57D8 &84 LOR XH 
&5709 &RES7A3 STA (&57A3 > 
&570C &O4 LDA XL 
&57D0 &RES7AS STR C&57A4 > 
&57EO &9A RTN 

ROUTINE TO FETCH AND SAVE ACC. * REG. AND 

STATUS FOR GO FUNCTION 
BS7EL &ASS7AS LDA ©&S7AS > 
&S57E4 &BA STR XL 
&S7ES &ASS7AG LDA ¢&57A6 > 
&S7ES &86 STR XH 
&S7ES &ASS7A7 LOR <&57A7 > 
BS7EC &BES7FF SJP EN CALL USER..... 
xX WARNING ** 

SUBROUTINE JUMP ADDRESS SET BY BASIC AT LINE 470 
BSC7EF &RESZA?7 STR C&S7A7 > 
US?Fe &FORA TTA ACC. *STATUS 
G57F4 &RES7AS STA (&57AR6 > 
a57F7 &O4 LDA XL 
aS7FS &AES7AS STR ©&57AS > 
aS7FB &84 LDA XH 
G57FC &AES7AG STR (C&S57AG > 
GS7FF &SA RTN 


FRUIT MACHINE 


(For Sharp MZ-700) 


THIS IS A $.5@ SLOT MACHINE. 


PAYOFF IS $3.00 FOR 3 CHERRIES, 3 LEMONS 


» OR 3 ORANGES. 
ALL OTHER COMBINATIONS LOSE. 


HOW MANY S@-CENT PIECES DO YOU WANT TO U 


SE IN PLAY. 
o 4 


YOU START WITH $ 2 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, @ F 


OR NOD? 1 

LEMON LEMON LEMON 
GREAT YOU WON $3. 
YOU NOW HAVE ¢ 5 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? 1 

CHERRY CHERRY CHERRY 
GREAT YOU WON $3. 
YOU NOW HAVE $¢ 8 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? 1 
CHERRY ORANGE ORANGE 


TO BAD - - YOU LOST $.5@. 


YOU NOW HAVE $ 7.5 


OF 


OF 


DO YOU WISH TO PLAY CTYPre 1 FOR YES, @ F 


OR NOJ? 1 
ORANGE ORANGE CHERRY 


TO BAD - - YOU LOST $.5@, 


YOU NOW HAVE $ 7? 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? |! 
LEMON ORANGE CHERRY 


TO BAD —- - YOU LOST $. S& 


TOU NOW HAVE ¢ 6.5 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? 1 
ORANGE LEMON LEMON 


TO BAD - - YOU LOST $.5@. 


YOU NOW HAVE $ 6 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? ! 
CHERRY ORANGE LEMON 


TO BAD - - YOU LOST $.5@. 


TOU NOW HAVE $ 5.5 


DO YOU WISH TO PLAY CTYPE 1 FOR YES, 


OR NO)? @ 
GORRY MBOUT THAT 
Ready 


Ot 


OF 


OF 


0 F 


Here is a good program for 
beginners like me, because it 
incorporates sound and colour 
and is a lot of fun to play. 


Allan Moss 
Duffy ACT 


6 PRINT , "FRUIT MACHINE GAME FOR 


2 PRINT 
8 PRINT 
9 PRINT C;, 4] 
14 PRINI 
2@ PRINT 
; 3 LEMONS, OR 3 ORANGES." 
38 PRINT 
48 PRINT 
WANT TO USE IN PLAY." 
S@ INPUT M 
6@ LET M=MN*.5 
78 PRINT 
8@ LET X=RND(-1) 


81 


PRINT 


90 PRINT 
R YES, @ 


1088 
118 
128 
i328 
148 
158 
168 
178 
188 
198 
200 
218 
228 
238 
248 


INPUT 
IF A= 
LET C 
LET & 
LET O 
FOR I 
LET N 
ON N 

PRINT 
LET C 
GOTO 

PRINT 
LET 
GOTO 

PRINT 
LET O 
NEXT 

IF C= 
IF L= 
IF O1 
PRINT 
PRINT 
MUSIC 
LET M 
PRINT 
PRINT 
IFN=08 
PRINT 
GOTO 

PRINT 
MMN$= 

TEMPO 
MUSIC 
LET 
PRINT 
PRINT 
GOTO 

PRINT 
PRINT 


PRINT 
PRINT 
MUSIC 
END 


SHARP MZ-788 COMPUTER" 


"THIS IS A $.5@ SLOT MACHINE." 
“PAYOFF IS $3.00 FOR 3 CHERRIES 


“ALL OTHER COMBINATIONS LOSE." 
"HOW MANY S5@-CENT PIECES DQ YDBU 


"YOU START WITH $"5M 


"DO YOU WISH TO PLAY CTYPE 1 FO 
FOR NO)"; 

A 
@ THEN 418 


=1 TO 3 
=INTC3XRNDC1))+1 
GOTO 188,218,240 
[7,8] " CHERRY 4 
=C+1 
260 
C7, 2]" LEMOR "3 
=L+1 
260 
C7, 3] " ORANGE "3 
1=01+1 
I 
3 THEN 358 
3 THEN 358 
=3 THEN 358 


»"TO BAD - - YOU LOST $.58."; 
"FAT" 
=M- .5 


THEN 488 


388 

»"GREAT YOU WON $3."; 
"C1+D1+E1+F1+G1+A1+B1" 
? 

MMN$,MN¢$, MNS 
=MN+3 


"YOU NOW HAVE $" 5M 
38 


"YOU HAVE LOST ALL YOUR MONEY. 


"SORRY ABOUT THAT" 
"-B4R+-SBR+-C8" 


143 


144 


(For Sharp PC-1500) 


An age old carnival con game 
that has found its way onto a 
computer. Full instructions are 
in the program. Good luck! 


Alan Thomas 
Napier NZ 


(For Sharp PC-1500) 


Simply put in a number when 
asked and the hexadecimal 
value will be calculated and dis- 
played. 


Alan Thomas 
Napier NZ 


ESCAPE 


(For Sharp PC-1401) 


To play ESCAPE just type RUN 
and press ENTER. A prompt 
will ask you for the size of the 
Maze. The computer will then 
be busy while it generates the 
new Maze. The computer will 
beep twice when the maze is 
completed. 

During play the computer will 
display the available exits open 
to you, these will be any combi- 
nation of N(orth), E(ast), W(est), 
or S(outh) inside square brac- 
kets. Just press the key of the 
compass point of the direction 
you wish to move. 

The computer can generate a 
maze with one-way walls and 
rooms with no exits. 

‘YOU ARE TRAPPED)! is dis- 
played when in a room of no 
exits, pressing ‘X’ will take you 
back to the start of the maze. 

‘FREE AT LAST’ and your 
score (maximum is 1000) will 
be displayed when you find 
your way out of the maze. 

David Green 
Shailer Park QLD 


1@: 


2g: 


3@: 
LO: 
50: 
:E$(X,Y)=S$:W$(X,Y)=S$ 
:X=X+(C=2)-(C=4) :¥=¥+(C=3)-(C=1) 
:IF X @ LET X=@:L=D 

8G: 
9G: 
1G@: 
11@: 
12: 


22 
6g 
7D 


13@: 
14g: 


141 


144 


15@: 


155 
156 
168: 


165 


169 
170: 


18: "DH"CLEAR :H$= 
"@1234567839ABC 
DEF" 

38: INPUT "Number= 


"SN: IF N>65535 
PRINT “ABOVE L 
IMIT!": GOTO 38 
35: IF N<@END 
4@:FOR I=1TO 4 
5@:GOSUB 188 
68:NEXT 1 
7B: NS="G"+NS 
8@:PRINT N$ 
98:N$="":GOTO 32 
188: A=INT (N7416):2 
=N- 16*A: N$= 
MID$ CH$, ¢2+1) 
» 1) +N$: N=A: 
RETURN | 


CLEAR :PAUSE "** ESCAPE! **":WAIT 25 
:X=0: ¥=0:S$=a"'*"" 

RANDOM :INPUT "MAZE SIZE ";2:Z=Z-1: 
DIM N$(Z,Z)*1,E8(Z,Z)*1,W$(Z,Z)*1, 
S$(Z,Z)*1 :T=1991+Z 

D=RND (2/2) :C=RND & 

FOR L=1 TO D:0N C GOTO 59,55,58,55 
N$(X,Y)=S$:S$(X,Y)=S$:GOTO 69 


IF X Z LET X=Z:L=D 

IF Y @ LET Y=9:L=D 

IF Y=Z+1 THEN 12¢ 

NEXT L:GOTO 34 

FOR L=@ TO .2:W$(@,L)=":S$(L,@)="": 
E$(Z,L)="":NEXT L:BEEP 2 

X=% : Y=G 

DD$="EXITS "+CHR$ 91:IF N$(X,Y)=S$ 
LET DD$=DD$+"'N" 


IF E$(X,Y)=S$ LET DD$=DD$+"E" 
14e: 
143: 
: DD$=DD$+CHR$ 93:IF LEN DD$=8 LET 


IF W$(X,Y)=S$ LET DD$=DD$+"w" 
IF S$(X,Y)=S$ LET DD$=DD$+"'S" 


DD$="YOU ARE TRAPPED!" 
PRINT DD$:O$=INKEY$ :IF Ogf="'" 
THEN 152 


:IF O$="X" THEN 132 
:T=T-1 


IF O$="N" OR O$="S" LET Y=¥+(O$="N" 
AND N$(X,Y)=S$)-(O$="S" AND S$(X,¥) 
=S$):GOTO 169 


:X=X+(O$="E" AND E$(X,Y)=S$)-(O$="W" 


AND W$(X,Y)=S$) 


:IF Y =Z THEN 14¢ 


WAIT :PRINT "FREE AT LAST":PRINT 
"SCORE :";T:END 


FIND THE PEA 


?REM FIND THE 


PEA! 


?REM by 


ALLAN THOMAS 


*REM 1.4.84! 


19:CLEAR :RANDON 


188: 
118: 


120: 
288: 


218: 
220: 
238: 


248: 
388: 


318: 


320: 


330: 
348: 


358: 
368: 


488: 


418: 


: BS="80881C888 
8" 


:FOR I=1TO 3 
:GOSUB 588 
:PAUSE " " 
:WAIT :CLS : 


PAUSE "FIND TH 
- ‘PEAY 


=NEXT 1 
> INPUT "RULES=R 


7PLAY=P:? "j;AS 
IF LEFT$ CAS, 1 
="E"END 
IF LEFT$ CAS, 1 
I="R"GOTO 288 
GOTO 388 
BEEP 5:DIM Q$¢ 
8)*26: WAIT 
RESTORE :FOR 1 
=BTO 12 
READ Q$(¢(@): 
PRINT Q$¢(@) 
NEXT |] 
GOTO 38 
CLS :GOSUB Sea 
:BEEP J*3, RND 
3*18:CURSOR 20 
‘PRINT "“?" 
AS=INKEY$ : 1F 
A$S=""GOTO 318 
KEY=ASC A$: IF 
KEY<170R KEY>1 
3GOTO 318 
N=N+1:P=RND 3: 
KE=KE-16 
CLS :GCURSOR 2 
4*CP-1)+12: 
GPRINT BS 
IF KE=PGOTO 40 
4) 
PAUSE “YOU LOS 
E!":P2=-28: 
GOSUB 558: GOTO 
425 
P2=488- 1G0X*N: 
JF PZCQLET P2= 
8 


PAUSE “YOU WIN 
e*3P2y)" fh": 
GOSUB 5S@:N=8: 

GOTO 382 


925: 1F N<3GOTO 388 
438:N=@: INPUT "AGA 


440: 
588: 
518: 
520: 


538: 
558: 


680: 


6108: 


638: 


648: 


658: 


STAT 


IN? ";Q$: IF 
LEFT$ ¢Q$, 1)=" 
Y"GOTO 308 
END 
WAIT S@:CLS 
FOR J=1TO 3 
BEEP J: CURSOR 
4xJ-2: PRINT 
CHR$ 127; 
NEXT J: RETURN 
TP=TP+P2: PAUSE 
"TOTAL WINNING 
S $";TP:RETURN 
DATA "RULES:Pr 
ess Enter for 
more.", "3 cups 
are on the ta 
ble." 
DATA "The pea 
is under one c 
up."; "Which cu 
P?", "You are a 
{lowed 3 guess 
es, ° 
DATA "The cups 
are shuffled" 
» "after each g 
uess", "Press k 
ey under cup c 
hosen" 
DATA "Prizes f 
or finding Pea 
>", "First try: 
$388", "Second 
try: $2080" 
DATA "Third tr 
y: $188", “Each 
wrong guess: 
-$2Q" 


US 1 
1868 


146. 


GOLF SIMULATION 


This draws a golf course in 
graphics mode with endless 
variations on bunkers, water 
hazards and roughs, and allows 
the player to actually ‘play’ the 
shots giving a choice of club, 


hitting strength and direction. 


Gary McCleary 
Emu Plains NSW 


4@ REM GOLF SIMULATION 
5@ REM BY GARY J MCCLEARY 
S51 REM DEC. 1983 


188 
118 


URSE) 


111 


CLS 


PRINT@33, "GELCOME TO GLENLAY GOLF CO 


PRINT 
PRINT" IN GOLF THE OBJECT OF THE GAME 


PRINT"IS TO HIT THE BALL FROM THE" 
PRINT" TEE @)) TO THE HOLE IN THE" 
PRINT"FEWEST NUMBER OF SHOTS." 

PRINT 

PRINT"WILL THERE BE 1 OR 2 PLAYERS?" 
K®=INKEY$ 

I$=INKEY$ :WW=RND(DD) :DD=DD+1 =: IFDD> 18 


@THENDD=1 : IF I1$=""THEN133 


135 
137 
148 
145 
1355 
158 
168 
165 
178 
175 
188 
185 
198 
194 
195 
288 
285 
218 
258 
388 
358 
351 
352 
354 
366 
368 
378 
488 
428 
438 
458 
453 
455 
456 
457 
458 
459 
468 
465 
466 
468 
478 
472 
474 
488 
485 
438 
4392 
434 
588 
986 
987 
383 
318 
ail 
312 
313 
314 


IF 1$="1"THENPL=1 :LP=@8:GOTO145 
IF I¢="2" THENPL=2 :LP=@ :GOTO145 


GOTO130 
cLs 

PRINT"YOUR GOLF BAG CONTAINS A:" 
PRINT 

PRINT"( WOOD MAX.RANGE 251 METRES" 
PRINT" IRON) MAX.RANGE 221 METRES" 
PRINT'G& IRONPMAX.RANGE 164 METRES" 
PRINT'@_ IRON) MAX.RANGE 127 METRES" 
PRINT"@ WEDGE) MAX RANGE 87 METRES" 


PRINT"€ 
PRINT"AND IS ONLY USED ON THE GREEN" 
PRINT 

PRINT"TO ACHIEVE GREATER HEIGHT" 
PRINT"USE A HIGH NUMBERED IRON" 
PRINT 

PRINT SPACE) CONTINUES THE GAME" 
GOSUB28982 

HO=1 :TT=8:11=@ :T2=0 :GF=0 
PA=RND(3)+2 

P2=RND(2) 
IFPA=3THENP=3 : SX=63 :GOT04@8 
IFPA=4THENP=4. 8 

IFPA=STHENP=6. 5 

IFP2=1 THENSX=8 

IFP2=2THENSX=1 13 

REM 

ZB=RND(3) :2W=RND(3) :2J=RND(3) 
J3=RND(9)+2 

A=RND(187)+7 :BB=RND(7)+16 
G=RND(5)+2 :B=RND(9) +2 :W=RND(18)+3 
IF2J=1THENJ3=0 

IF 2B=1 THENB=@ 

IFZW=1 THENW=8 

C=RND(183)+9 :D=13+RND(6) 
MD=INTCSQRC CA-SX)*2+ (BB-63)~*2) *P ) 
HB=SQRC (A-C)*2+(BB-D)~2) 
IFHB<=G+B+3THEN458 
E=13+RND( 106) :F=14+RND(35) 
BW=SQR( (C-E)*2+(D-F)*2) 

WH=SQR( (A-E)~2+(BB-F )~2) 
IFBW<=B+lWi+3THEN466 
IFWH<=W+G+3THEN466 

J1=RND(183)+9 :J2=RND(6)+13 
HJ=SQR( (A-J1)*2+(BB-J2)*2) 

IFHJ <=G+J3+3THEN458 


PUTTER) MAX.RANGE 41 METRES" 


JW=SORC CJ 1-E3*2+CJ2-FJ*2) 
IF JW<=J3+W+3THEN466 

CLS 

X=SX : Y=63 :R1=8 °B1=8:W1=8 
SC=@8 

LL 

PRINT" THIS IS HOLE NUMBER" HO 
PRINT 

PRINT"PLAYER" LP+1 

PRINT 

PRINT"PAR"PA; MD "METRES" 


315 
317 
322 
323 
324 
325 
327 
538 
548 
958 
568 
978 
588 
SE" 

688 
682 
618 
628 

638 

635 

648 

645 

658 

660 

665 

668 

678 

675 

677 

688 

682 

685 

686 

687 
698 
788 
718 
715 
728 
225 
738 
235 
236 
748 
742 
245 
246 
747 
2354 
739 
768 
765 
778 
22735 
788 
738 
732 
734 
736 
8828 
818 
812 
813 
814 
816 
817 


819 
828 
822 
825 
827 
838 
835 
848 
845 


SC=@ :X=SX : ¥=63 :R1=0:B1=8:W1=8 
GOSUB28988 

GOSUB28088 

GOSUB2898@ 

CLS 

PRINT"WHICH CLUB DO YOU WISH TO USE" 
INPUTCL 

IFCL=1 THENAV=29+RND( 11) :GOTO68@ 
IFCL=2THENAV=19+RND(11) :-GOTO6@0 
IFCL=STHENAV=69+RND(6) :GOTO680 
IFCL=7 THENAV=74+RND(6) :GOTO688 
IFCL=STHENAU=739+RND(6) :GOTO68@ 
CLS:PRINT" YOU DO NOT HAVE ONE OF THO 


>GOTOS25 


CLS 
PRINT" IN WHICH DIRECTION DO YOU WISH 


PRINT"TO HIT? (@TO36@ DEGREES)" 
PRINT"MEASURED ANTICLOCKWISE FROM" 
PRINT" THE RIGHT" 

GOSUB683ea 

INPUTA2 

CLS 

PRINT"HOW HARD DO YOU WISH TO HIT" 
INPUT"@TOSB" 5VU 

CLS 

PS=3. 1415926547180 
IFUC@THENU=@ 

IFU> S@THENU=5@ 

SC=SC+1 
RA=UXUXS INC 2XAUXPS)79. 81 
RS=RA/P 

HT=CCSINCAUXPS )*U)*2)7019.62) 
IFR1=1THEN1 2008 
IFB1=1THEN13000 
X=X+RSXCOSCAZKPS) 
Y=Y-RSXSINCAZXPS) 

H=INTCX) :K=INTCY) 

H1=8 

IFH<@THENH=@ :H1=1 
IFH>=127THENH=126 :H1=1 

IFK <@THENK=@ :H1=1 
IFK>63THENK=63 :H1=@ 

X=H:Y=K 

IFH1=1 THENS@6@ 

DI=SQRC CA-H)*2+ (CBB-K)*2) 

REM 

IFDI <=GANDGF=1 THEN739@ 
GOSUB28888 

COLOR2 

K$=INKEY$ 

I$=INKEY$ 

SETCH;K) :SETCH+1,K) 
RESETCH;,K) :<RESETCH+1,K) 

IF I$=""THEN768 

IFI¢<>" "“THEN?6@ 

DI=SQRC CA-H)*2+ CBB-KI*2) 
DB=SQR( (C-H)*2+(D-K)*2) 
DW=SQR( CE-H)*2+(F-K)*2) 
DJ=SQRCCJ1-H)*2+CJ2-K)*2) 
DM=DI xP 

IFDI <=GTHENGF =1 :GOTO8@G@ 

IFDB <=BANDB <> @THEN78@ 

IFDJ <=J3ANDJ3 <> @THEN? BBO 
IFDW<=WANDW <> @THEN 18880 

CLS 

PRINT" THAT SHOT WENT "“INTCRAJ"METRES 


PRINT 

PRINT"DISTANCE FROM THE HOLE" 
PRINTINTCOMN) "METRES" 
PRINT"NUMBER OF STROKES="SC 
IFPA=40RPA=STHEN1 000 
IFH<4@ANDK> 31 THEN! 1880 

IFH> 86ANDK> 31 THEN1 1880 
IFK<=8THEN1 1000 

GOTO2880 


1888 IFP2@=2THEN1500 

1180 IFH>16ANDK> 31 THEN] 1000 

111@ IFK<=8THEN1 1800 

1128 GOTO288@ 

1588 IFH<111ANDK>31THENI 1800 

1518 IFK<=8THEN1] 1880 

1528 GOTO2808 

2006 GOTOS25 

7008 Bl=1 

7005 BH=124.5 

7818 PRINT" YOU ARE IN THE Q@UNKERY 
78626 PRINT" YOU ARE ADVISED TO USE THE WE 


DGE" 


7030 GOTOS25 
8000 GF=1 :GOTO68868 


8004 


CLS 


8088 PRINT" YOU ARE ON THE GREEN) AND WILL 


881@ PRINT"BE USING THE PUTTER" 

882@ PRINT"WHICH DIRECTION (@T0360)" 
8825 GOSUB68380 

8838 INPUTA2 

88035 CLS 


PRINT"HOW HARD DO YOU WANT TO HIT" 
INPUT" (@TO25)" 5U 
IFU<C@THENU=@ 
IFU>2STHENV=25 
AU=78 

CLS 

GOTO677 
SOUND4, 2 :SC=SC+1 :GOTO745 
W1=8 

SC=SC+1 

H=H+2xW >K=K+2XW 
GOTO6eRe8a 

R1=1 

RH=111+RNDC15) 


PRINT 

PRINT" YOU ARE IN THE (ROUGH 

IFRH> 123THENBS="{TALL_ TREE" :GOTO11 
IFRH> 1 ISTHENBS="(FEDIUM TREES} :GOTO 
IFRH>=112THENBS$="{OW_SCRUBY' :GQTO11 


PRINT" YOUR NEXT SHOT MUST CLEAR SO 


PRINTB$ 

PRINT 

GOTOS25 

IFHT <RHTHENRA=RND(6) :GOTO12180 
RA=RA72 

R1=@:GOTO682 

IFHT <BHTHENRA=@ :GOTO13180 

RA=RA72 

B1=@:GOTO682 

SOUND2@, 1:SOUND15, 1 

IFLP=@THENT 1=T1+SC:TT=T1 :P1=P1+SC- 
PA:Q=P1 

15003 IFLP=1THENT2=T2+SC :TT=T2 :P2=P2+SC- 
PA :Q=P2 


15885 AS=" FOR THIS HOL.E" 
15808 CLS 
15@1@ PRINT@39, '(CONGRATULATIONS}' 


15@15 PRINT@73, "PLAYER LP+1 

15020 PRINT 

15030 PRINF"YOU ARE IN THE HOLE" 

15040 PRINT"FOR "SC" SHOTS" 

15@6Q IFSC=PA-2THENPRINT' BY SAS 

15@62 IFSC=PA-1THENPRINT' '5AS 
15@64 IFSC=PATHENPRINT'C 

15@66 IFSC=PA+1 THENPRINT (BOGE! ;As 

15@68 IFSC=PA+2THENPRINT (DOUBLE BOGEY/' ;A 
. 

15969 IFSC=1THENPRINT'GOLE IN ONE# 29) :G0 
7015872 . 


15070 PRINT 

15072 PRINT"YOUR TOTAL SO FAR IS"TT 
15074 IFQ=@THENPRINT"YOU ARE ON PAR FOR 

THE COURSE" 

15@76 IFQ>@THENPRINT" YOU ARE 

R FOR THE COURSE 

15078 IFQ<@THENG=ABS(Q) :PRINT"YOUR TOTAL 
IS"Q"UNDER PAR" 

15@8@ PRINT :PRINT 

16008 PRINT" — PRESS THE Grace 

16018 K$=INKEY$ 

16020 I$=INKEY$:KD=RND(DD) 

16038 DD=DD+1 :IFDD> 1@@THENDD=1 

16040 IFI$=""THEN16020 

16050 IFI$<>" "THEN16020 

16068 CLS 

16108 IFPL=1THENHO=HO+1 :GOTO350 

16288 IFPL=2ANDLP=1THENLP=@ :HO=HO+ 1 :GOTO 

350 
16218 

20000 

20201 

20002 

20005 

20010 

20020 

20030 

20040 

20050 


"Q" OVER PA 


IFPL=2ANDLP=@THEN :LP=1 :GOTOS1@ 
COLOR4 

MODE C1) :GF=0 
IFPA=40RPA=STHEN2@112 
FORI=0TO127STEP2 

SETC1,8) :SETCRND(C126),RNDC7) 3) 
NEXT 

FORI=@TO4@STEP2 

SETCI,31) :SETCRND(4@), 31+RNDC31)) 
NEXT 


28068 
28878 
PD) 
28888 
28898 
20188 
20118 
20111 
28112 
20115 
28119 
28120 
20122 
20124 
ew 
28126 
28128 
20138 
20132 
28134 
28148 
28142 
28144 
20158 
28152 
20154 
20156 
28158 
20168 
28162 
28280 
28210 
28228 
28225 
20226 
28228 
28232 
28233 
28234 


FORI=86TO127STEP2 28235 SETCI,;J):NEXT :NEXT 68072 
SETCI,31):SETCRND(4@)+86, 31+RND(31 20236 IF2B=1THEN20265 60082 

28238 COLOR2 60e90 
NEXT 20248 FORI=C-BTOC+BSTEP2 60093 
FORI=31TO6B3STEP2 20258 FORJ=D-BTOD+BSTEP2 68895 
SETC4@, 1) :SET(86, 1) 2026 SETCI;J) 68120 
NEXT 28264 NEXT :NEXT 60119 
GOT020200@ 20265 IF2J=1THEN20273 68120 
IFP2=2THEN20140 20266 COLOR2 60130 
FORI=@TO127STEP2 280267 FORI=J1-J3TOJ1+J3STEP2 60148 
SETC1I,8) :SETCRND(126),RND(7)) 20268 FORJ=J2-J3TOJ2+J3STEP2 68145 
NEXT 280269 SETCI,J) 68152 
FORI=16T0127STEP2 20278 NEXT =NEXT 60162 
SETC1I,31):SETCRND(110)+16,31+RND(3 28273 IFZ@W=1THEN2@349 60165 

28275 COLOR3 60172 
NEXT 20288 FORI=E-WTOE+WSTEP2 68180 
FORI=31TO63STEP2 20298 FORJ=F-WTOF+WSTEP2 68192 
SETC16, 1) 20300 SETCI,J) 60200 
NEXT 280318 NEXT :NEXT 68219 
GOTO202a0 20343 COLOR4 60220 
FORI=@TO127STEP2 20358 FORI=SX-2TOSX+2 - 68238 
SETC1,8) :SETCRND(126),RND(7)) 20368 SETCI,60) 68242 
NEXT 28365 NEXT 68243 
FORI=@T0111STEP2 20378 FORI=68T063 69245 
SETC1I,31) :SETCRND(110),RND(31)+31) 29388 SETCSX, 1) 60246 
FORI=31TO63STEP2 20978 RETURN 60270 
SETC111,1) 20988 K$=INKEY$ 68280 
NEXT 20982 I$=INKEY$:IFI1$=""THEN2@982 60285 
GoT020200 20984 IFI$<>" “THEN2@982 60290 
FORI=A-GTOA+G 20998 RETURN 60300 
FORJ=BB-GTOBB+G 60000 CLS 60312 
SETCI,J) 6@@1@ PRINT" YOU WERE IN THE (WATER) AND HA 69312 
NEXT :NEXT VE" 60314 
COLOR? 60828 PRINT"BEEN REPOSITIONED FURTHER BA g9399 
FORI=BB-11TOBB:RESETCA, 1) :NEXT CK" 68338 
FORI=BB-11TOBB:SETCA, I) :NEXT 60038 PRINT"WITH A PENALTY OF 1” 60332 
FORJ=BB-11TOBB-8 62048 FORI=1T03@0@ :NEXT 60334 
FORI=ATOA+4 60058 GOTO715 60342 

6@@6@ MODE(1) 60360 


KNIGHTS 
CROSS 


The program’ is _ purely 
graphics and works as follows: 

Line 16 sets random colour. 

Lines 30-60 creates what | 
call an inverted German Cross 
in multi colours. 

Lines 90-200 draw a circle in 
the cross. 

Lines 345-370 draw a square. 

Line 370 pauses to display 
the image. 

The end result looks like the 
‘Knights Cross with oak leaves’ 
just like the Germans issued 
their war heroes. 

It shows how we can use the 
capabilities of the VZ200 todraw 
very intricate designs by allow- 
ing the composition and place- 
ment of the A Z Y in the lines 
40-43 and 100-170, i.e. A+60 
change to A-60 or A+60, 
30 + Y change to 30+ Y,A-60 all 
sorts of wonderful patterns can 
be created. 


G. Lucas 
Boroko PNG 


1 REM" NLR 7s 


= REM"'Lit E LL 
2 REM" TBE FS > 
1°®@ "ut 

mote ¢ 1 > 

= FORR=1T7TU24 
L=RNDOC sd +1 
FiiRA=-RTUR 
SET CA4EO + 3O 
"se TC40-A 2 74 
SET CVA+ES » 
42 SET CSS--W > 
NEXT SNE XT 
FuoRR=1TO1S 
FORA=—-RTOR 


=RNOCS> +1 
The SET CA+4EO>s 
100 
110 SETCA+41 Ss 
120 +SET(CA+114, 
1320 ‘SE TCA4114+ 
149° 
ive 
2£OO NEXT:NE xT 
a> >+1 


300 +*=RNOEC 


345 
SETCK »sYo ENE XT = 


“4198 Lor Vv 


1000 tititit1a 


YSSuk (CAH A+R R DD FY = 


SO+Y >) 


‘'tET (CA7+4Or12 


GS=INT(42/(2xG)) 
HH=2x*(H-A)XGS+63 
KK=(K-BB)*GS+31 
COLOR4 
FORI=12TO1@6STEP2 
SETC(1,8) :SETCI,55) 
NEXT 

FORI=8TOSSSTEP2 
SETC12, 1) :SETC106, 1) 
NEXT 

COLOR2 

FORI=12T031 

SET(63,1) 

NEXT 

FORI=63T075 
FORJ=12T018 

SETCI;J) 

NEXT :NEXT 
FORI=63-GSTO63+GS 
FORJ=31-GS“2T031+GS/2 
SETCIs J) 

NEXT :NEXT 

COLOR4 

K$=INKEY$ 

I$=INKEY$ 
SETCHH; KK) :SETCHH+1,KK) 
IFI1$=""THEN6Q246 
IFI$<>" "THEN6Q@246 
IFDI <=. STHEN15@20 
GoTosea4 

PRINT@176, "90" 
PRINT@208,"." 
PRINT@24Q,". " 
PRINT@272,"." 
PRINT@297, "188... Grvd. 
PRINT@336,"." 
PRINT@368, ". " 
PRINT@4@Q,". " 
PRINT@432, "270" 


RETURN 


Fees 


Ale PARTIA NEW tslilNEA" 


A ssetes = °° 


ek ware 


INT CY—.s) 
ey >? 


—-Y> 


1 daa ao J 


2aerA > 


Y Soin CR*#R-A#8#AD FEY=INTCY—.5) 


lala 
TSE TC A4+4.0% 3O-YV) 


SET CA++ 1L Ss 2O+Y dD) 


OY 2 


=2O+Y >) 
3@-Y>) 


= My 


SET CA+F4O + SO4Y)D 


2b RR 


PoRK=OTHI1 S27 PFUIRY=OTH1 = 


NEXT 


NEXT 


FurRVvY=o Tima as 
NEXT 


Awa 7 FTEMIRVY=O 14.238 
NEXT 
2 
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(For ZX81, 1K) 


Grand Prix involves driving your 
racing car (an inverse ‘H’) down 
a convincing simulation of a 
racing course, while dodging 
other cars and people who are 
cleverly disguised. The object of 
the game is to last as long as 
possible. 

The keys ‘5’ and ‘8’ move you 
left and right. There is a high 
score feature and, after a game, 
press any key to play again. 

This program uses a number 
of unusual techniques. First of 
all, it uses a bit of machine code 
POKEd onto the first REM 
statement to speed things up. 
When called (by USR 16514), it 
returns a code relating to the 
character in the correct PRINT 
position. This replaces the line: 
PEEK (PEEK 16398+ 256* 
PEEK 16399) 

Also, in my article, ‘Larger 
Screen’ in Your Computer July 


GRAND PRIX 


1983 issue, POKE 16418,0 was 
used to obtain a 24 line screen. 
This location can also be used 
to make the screen smaller, and 
sO save memory. 

POKE 16418,5 would change 
the screen to 32 by 18 lines — 
PRINT AT 19,0;“Jason” would 
result in an out of screen error 
report. The SCROLL command 
is also changed to work from 
this line. 

The scoring is also unusual, 
since the line NEXT S is used 
instead of the line LET S=S+1 
which uses up more memory 
and is slower. 

In the listing, A is a space 
and ‘gr.A’ means the graphic 
character on that key. 

My best score is 413. Can 
you beat that? 


Jason Teh 
Doncaster VIC 


1 REM 0000000 

POKE 16514,42 

POKE 16515,14 

POKE 16516,64 

POKE 16517,78 

POKE 16518,6 

POKE 16519,0 

POKE 16520,201 —_/ 
2 POKE VAL "16418", VAL "5" 

10 LET H=NOT PI 
20 LET A=VAL "8" 

30 LET B=VAL "5" 
40 CLS 
50 LET D=INT PI 
60 FOR S=0 TO 10 

70 SCROLL 

80 PRINT TAB D3; "inverse space, gr. A, gre A, 


ENTER DIRECTLY ON THE 
KEYBOARD. 


gr. A, inverse space" 

90 IF RND>.7 THEN PRINT AT 18, D+RND*2+13 "gr. S" 
100 NEXT S 

110 LET B=B-( INKEY$="5")+(INKEY$="8" ) 

120 PRINT AT A,B; 

130 IF USR 165144>CODE "gr. A" THEN GOTO 180 

140 PRINT "inverse H" 

150 LET X=RND 

160 LET DeD+(X>.5 AND D«10)={(X¢.5 AND D?0) 


170 GOTO 70 
180 PRINT "H" 


210 PAUSE VAL "484" 
220 GOTO VAL "20" 


190 IF H4S THEN LET H=S 
200 PRINT "S='"333" AdH="5H 


(for ZX81, 1K) 


i 16518,6 


ASTEROID DODGE 


pRNT ¥1G 3 them 


Asteroid Dodge is an addictive 
game for the 1K ZX81. The aim 
is to safely pilot your ship 
through space dodging the as- 
teroids hurtling towards you. 

Your ship is always moving 
left and cannot stay still. Pres- 
sing any key will move you 
right. Also, if you move too far 
to the side of the screen, your 
ship will disappear and appear 
on the other side, which makes 
the game harder. 


There is a high score and 
scoring mechanism. At the end 
of a game, just press any key 
to restart. Also, the game uses 
a short machine code routine 
POKEd onto a REM statement 
to speed things up. When 
called, the code value of the 
character in the current PRINT 
position is returned. 

Have fun!!! 

Jason Teh 
Doncaster VIC 


90 JF [NKEY$<>"" THHN LET B=B+ee 


100 LET B=B+(-B 
110 ERINT 


120 IF UGR T6sta<00TR Ue" TAR GO 


PRINT ty 


160 IF H4S THEN 


160 PAUSE 4&4 
190 GCTC 20 


N.B. To make the game harder, 


. 
Wi HM 


AT A,Bs 


» B>18)+(20 AND BKO) 


™, 160 


LET H=s 


170 PRINT "inverse 


j="sSe"4hinverse H="3H 


change line 60 to ;: 
60 FRINT AT 21,RND*18; "**" 
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ESCAPE ZX81 SKETCH 


(For 2X81, 16K) (For ZX81, 1K) 


Here’s a short program — a 
game which starts easy and as 
you progress becomes more 
difficult. 

The object of the game is to 
dodge the black squares and to 
travel through the time gate 
which appears at random. If you 
do make it, more black squares 
appear randomly. Your score 
goes by steps of your input and 
rounds go up by one every time 
you reach the other side. Skill is 
obtained by score, rounds and 
level. To move your star use the 
keys A for up and Z for down. 

Garry Wilson 


There are many ‘drawing’ pro- 
grams for the ZX81, but many 
are wasteful of memory. While 
this is alright for a 16K ZX81 1K 
owners are much disadvan- 
taged. | have sought to remedy 
this, and have produced 
“Sketch” for the 1K ZX81, using 
the PLOT command to get a re- 
solution of 40 by 40. 

There are 8 directions in 
which you can move and you 
can rubout as well as draw. The 
key directions are with the list- 
ing. 

To get into DRAW mode, 
press ‘9’ and to RUBOUT, 


Higgins ACT press ‘0’. If you own a 16K 
ZX81, change and add the 
extra lines. You now have some 
bonus commands as well as a 
resolution of 64 by 44. Pressing 
‘Z’ will dump the screen to the 


00010 LET B$="(Graenics space 32 times: printer, and will let you continue 
et a ees ; ae 
tea tes drawing. “C” will now clear the 
000 REX Bere P ° . 
00040 LET uU=: screen. Finally, pressing ‘S’ will 
P0050 LET R=0 SAVE the screen and the pro- 
00060 GOTO i70 ‘ 
0007) PRINT AT Didi" * gram onto tape, and will let you 
ei oa cee Sy continue drawing the same pic- 
ooo0ge ceT =S+ 
00100 LET K$=INKEYS ture at a later date. Before pres- 
00110 LET D=D+(K$="Z")-(K$="A") sing Fe make sure the tape 
00120 PRINT AT D,U; dari nail 
00130 ZF PEEK(PEEK 16398+PEEK 1623994256) -:28 THEN GOTC 28e recorder is recording! 
00140 PRINT AT Drur"s" Jason Teh 
00159 IF U>30 THEN GOTO 240 
00160 GOTO 70 Doncaster VIC 
00170 PRINT AT 5,8;"* ESTAPE* " 
00180 PRINT AT 10,8;"Ineut Level(i-5) 
00190 INPLT L 10 LET Z=1 
00200 IF LY>INT (L) OR Lé=O OR LS 5 THEN GOTO 19% 20 LET X=0 
00210 CLS ‘ 
00220 PRINT B$ 30 LET Y=X 
ae eles AY 21,878¢ 40 LET A$=INKEY$ 
00240 LET X=" 
NO25O LET 2=R4; 50 IF Ag$="0" THEN LET Z= -Z 
O02ZB8 LET X=n+. 60 LET X=X+(A$="8" CR A$="1" OR Ag="2")- 
O027G LET AL=RND#(2C: 
00280 LET AZ=RND*(24) +3 (A$="5" OR AS="3" OR AS="4") 
©3290 PRIN” AY AL,AZ: "‘Graes.cs space : Lime 70 LET Y=Y+(Ag$="7" OR Ag$="1" OR Ag="4")= 
QO300 I= sk THES GOT? 3r: 
OO3IG GoTe 230 (A$="6" OR A$="2" OR A$="3") 
O02) =oR eee To 28 80 LET X=X+(X<0)=(X>40) 
OO93¢ Parn” AT £.31°"t4rac- space no)" 
10940 NEXT E 90 LET Y=Y+(Y40)-(Y>40) 
0035" LET E2=R c+ — -: 100 UNPLOT X,Y 
MAES wee 110 PLOT X,Y 
00380 SOTO 7: 120 IF Z=1 THEN UNPLOT X,Y 
9038) CLS 
10400 PRINT AT S-S5°° SAME hes 130 GOTO 40 
10410 PRINT AT 10,5/"SCORE "5 
\O420 PRINT AT 15, 5° "R75 UND ; If you own a 16k ZX81, change and 
G04390 PRINT AT 23,5° = 4345 add the following: 
00440 PRINT" PRESS ey Fe C7ne3 E / 
ce tc ater: TREN OTT ee 80 LET X=X+(X40)—(X) 63) 
00460 CLS 90 LET Y=Y+(Y¢0)-(¥>43 ) 
00470 FLA 130 IF Ag="Z" THEN COPY 
140 IF A$="C" THEN CLS 
150 IF A$="S" ‘THEN SAVE "SKETCH" 
N.B. To make the game harder, 160 GOTO 40 
change line 60 to : 1 
60 PRINT AT 21,RND*18; "ex" Ny 
KEY DIRECTIONS -- wi 
3 6 2 
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ATTR FILL 


(For Spectrum) 


This program is for a ZX Spec- 
trum with any memory size. 
One annoying fact that | find 
when using the Spectrum is that 
if you want the PAPER, INK, 
FLASH or BRIGHT commands 
to work globally (the whole 
screen), you have to clear the 
screen first with CLS and so de- 
stroy the display, which might 
have taken a long time to set 
up. To overcome this, | have 
written a short machine code 


CHEMISTRY 


(For ZX81, 1K) 


This program tests your knowl- 
edge of the first ten chemical 
elements. Run the program and 
the computer will randomly print 
the name of one of the ele- 
ments and asks you to input the 
atomic number and then the 
symbol for that element. The 
computer will tell you whether 
your answers are correct or will 
give you the correct answer. 
D.W. Moore 
North Geelong VIC 


routine, only 18 bytes long, 
which changes the screen in- 
stantly without clearing the 


screen. 2 PRINT "CHEMISTRY" inverse 
To use it,just enter the appro- 5 PAUSE 156 
priate colour commands such Ue oi 
as: PAPER 6: INK 1: FLASH 1 
and call the routine. The whole 10 GOSUB INT (RND #10) % 2 + 19 
screen should then become yel- .15 PRINT ag’ (5 TO) 


low, with blue lettering and 


FOR Fel TO 3 STEP 2 
everything flashing. The screen 16 3 


displays will still be there. 17 IF Fel THEN PRINT "ATOMIC NUMBER? "; 

You can also do this by POK- 18 LET c#* " " two spaces 
ING the attribute number into 

; ‘= “PRINT "SYMBOL? "; 

address 23693, which in this 19 IF F=3 THEN 
case would be 177, and then 20 INPUT BY 
Calling the routine. 27. LET Cg (1) = BY (1) 

There are two parts to the 

: = = 2 

listing. The first POKEs the 28 TF LEN BE>= 2 THEN LET CB (2) = BF (2) 
machine code stored in a DATA 4O IF C8 <> AS (F TO F+1) THEN GOTO 80 


statement, above RAMTOP and 


50 PRINT "YES ";Cg 
the second is a demonstration 


60 GOTO 85 
program. ae 
As listed, the program is for 80 PRINT "NOT ";C¥;" ..."3; AB (F TO F+1) 
a 16K Spectrum but to change 85 NEXT F 
it for a 48K Spectrum, change 90 GoTo 5 
every address 32582 to 65349 7 
and every 32583 to 65350. You 100 LET Ag = “1 H HYDROGEN 
call the routine by LET L=USR 101 RETURN 
oe a ne eer 102 LET ag = "2 HEHELIUM" 
First type in Listing 1 and 103 RETURN’ 
RUN it. Save the code by SAVE 104 LET Ag = "3 LILITHIUM" 
“ATTR FILL“CODE 32583,18 
and VERIFY it. NEW the nae eee 
machine and type in the 106 LET as = "4 BEBERYLLIUM™ 
demonstration program. Re- 107 RETURN’ 
haa ae = Se He Ne: 108 LET ag = "5 B BORON" 
Jason Teh ro EE 
Doncaster Vic 110 LET Ag = "6 C CARBON" 
Demonstration. 111 RETURN 


= "7 N NITROGEN" 
10 FOR N=O TO 255 STEP 2 112 LET Ag v4 


20 PLOT 0,0: DRAW N,RND*175 113 RETURN 


30 NEXT N 114 LET Ag = "8 O OXYGEN" 
40 FOR N=O TO 7 


10 CLEAR 32582: LET X232582 
20 FOR N=X+1 TO X+18 
30 READ A: POKE N,A 


40 NEXT N 50 PAPER N: INK 7=N phos EPO 
50 DATA 33,0,88,1,192,90,58, 141,92, 119, 60 LED LeUSR 32583 116 LET Af = "9 F FLUORINE" 
35,167,237,66,9) 32,248,201 FOP nsec 4G aay erode 
80 NEXT N 
90 GOTO 40 118 LET Ag = "19NENEON" 
119 RETURN 
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Satellites 
over Oz 


Digital audio disc 
Making video movies 
Video games . Keyboard music 
Home computers. Loudspeakers 


Cartridges & Styli. Hi-tech future 


HI-TECH COM 


All of a sudden, 
the future is NOW! 
Here’s ‘a magazine 

to help you 
understand — and 
enjoy — the latest 


technological 
advances. 


All around us, breakthroughs in 
technology are occuring. 
Changes are being made to 
many facets of our lives. 
Electronics Lifestyle is all about 
your lifestyle. It reports on 
advances in computing ... 
entertainment . . . 
communications. Learn how to 
make the most of the new 
breakthroughs — and how to 
make them work for you! 


$3.25 


at your news stand 


erie Tre 


EON AS 


BLACK BOX 


My program is a variation of the 
game ‘Black Box’ invented by 
Dr. Eric Solomon. It is a game 
of logic that can easily be con- 
verted to run on a Peach be- 
cause the two machines are vir- 


box give the clues. Because the 
red light emission of the elec- 
tron is only temporary it be- 
comes necessary to have a 
working space to put down your 


tually identical. 

The object of black box is to 
find four protons in a box. The 
paths of electrons shot into the 


ideas. This is provided in the 
form of a second board, discon- 
nected from play. 

The number of shots you 
have used to find the correct 


1 CLS:COLOR 4,6,0,7:WICTH 46, 25 = = + : -¢ ,PSET; : 
2 DEF CHRE(123>="88081BGEG1BB8B8BS": DEF CHR$(148>="SBCBOEGFO@FSFCFEFF":DEF CHR$(149 i: i et hiiele Settee nia d ie ik ae i = si 
.="B1OSO7OFIFIFCFFF": REM < md ResPectavly. 43 IF CL=2 THEN CL=@:PAUSE 3:60TO 46 ; ‘ 
3 PRINT"Do You want instructions?" , ae 
4 P=PEEK(1424):1F P=@ THEN P=RND:GOTO 4 is mee SER rae Veen Penn oe 
5 IF P=89 OR P=121 THEN 45 46 PRINT 
6 IF PEEK(1424)=6 THEN X=RND:G0TO 6 47 PRINT 
7? CLs 
48 PRINT ‘ —_—: : ie >_> WG AT": 
8 X$=INKEVYS$: FOR X=329 TO 576 STEP 36 és ‘ 
9 LINE. (ks 47 -¢ ke 151), PSET oi so PRINT OF FO 
i Pan ei? TO 152 STEP 13 ee Perak —— = = = = — , 
12 LINE (329,¥)-(569,¥),PSET> 1 ae ae ip — — a a = a ae 
13 NEXT : aT a ; co oa es 
14 COLOR 6:PRINT "“ oe ed "HOME’ “: COLOR 4 as eae = = vlna 
15 LOCATE @,23:PRINT “PRESS THE SPACE BAR TO FIRE AND“: PRINT “THE RETURN KEY TO 56 PRINT 
SHOW THE PROTONS"; 57 PRINT 
16 FOR I=1 TO 8:LOCATE 3,1+7:PRINT “eee@eeeee"; : NEXT 58 PRINT 
17 DIM RC9,9>S2FOR X=6 TO 92 ACK, O9=2: ACK, 99=22ACB, X¥=22AC9,X2=22 NEXT “ ABS. henna: 7. ar 
16 FUR IT=1 TO 4: NCIX=IMTCRND*8)4+12°MC TS =INTOCRND*8>4+15 NEXT oe dain . T —_ , a-_ * . ‘" «2 
19 FOR T=1 TO 3:FOR O=I+1 TO 4: 1F NCOY=NCI> AND MCOD=MCI> THEN 1=208: 0=26 61 PRINT * ma Yd = Ee ~~ an 
26 NEXT? NEXT? IF 1>108 THEN 18 62 PRINT * =e ma wa = 
21 FOR X=1 TO 45 ACNCHO, MCX HLS NEXT? WH2 63 PRINT * = ~~ = ae a 
22 GOSUB 137 
3 64 PRINT " = 4 = A Ty ma" 
22 CC=B:O1=O:W1L=Wi IF W=B THEN XX=G:Y4¥=1:G60TO 27 ‘ eee ce ae 
24 IF W=o THEN XX=8: ¥¥=-1:G0TO 27 7 elas aaa =" 
25 IF @=6 THEN ®X=1:4¥=6:6 27 
oa 67 FOR P=1 TO 8@@:COLOR »,,1:COLOR »+,2:COLOR »,,4!NEXT? 
27? CCHCC+LPO1=H1+XX: wt awi+v¥rC=ACWL,G1Lx:1IF CC>S9 THEN BEEP: BEEP:BEEP:GO0TO 44 68 ee as ind ca baead on Sie Medanth las: os" 
~ a mae tee rs 69 PRINT “a PhY¥sics exPeriment. Basicly there are" 
SQ IF V¥=O THEN Ci=ACWi-1,01>9C2=ACWi+1,01>160TO 35 ELSE Ci=Acui.a1-11czencwi,g 70 ERENT [four Protons in a suare box, 6 by Ett. 
1+1> : 
ss 5 72 PRINT “to know where they are. "PRINT 
Zz = = 7 
as Ai ihm Se ae 9? 73 PRINT “To do this You fire a char9ed Particle," 
% if Chai TREN M¥B—ta V¥e0 a 74 PRINT “into the side of the box and note where" 
34 GOTO 27 a 75 PRINT “it emer9es. Move the electron around " 
35 IF Ci=i AND C2=1 THEN 27 76 PRINT “the border and when it is in Position," 
36 IF Ci=1 THEN Y¥=1:¥%X=0:G0TO 27 77 PRINT “Press the sPace bar. It will then move" 
3? IF C2=1 THEN VY=-11 X= 78 PRINT “unseen Suided by the four Protons." 
ae Ea 79 PRINT 
si org - 88 PRINT “The Protons will absorb the electron if" 
40 1F O1=0 THEN Kau Tei desis Line (329, €)—¢200, ky sPSET, CLOGOTO 43 Buse af ates Toe 2S ERINT (f* Gohlises bead on. When 35 Passes ene 
N K=Wi*1L3+41:LINE (569,K)-(639,K),PSET,CL!G0TO 43 82 PRINT “Proton in the adJacent co-ordinate, it 
” *? , 83 PRINT “will chan9e direction by 90 de9rees. If" 
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position of all the protons is the 
measure of how good you are. 
Seven shots is reasonable but 
teens are common. It is possi- 
ble to change the number of 
protons by changing lines 18, 
19 and 21. The program is writ- 
ten in Microsoft Basic so it can 
be adapted to most machines. 
It's well worth the effort. Further 


instructions on play are in the 
program but these are not 
necessary for it to run. Have fun 
and don't strain anything! 


Tony Hinde 
Tarragindi Qid 


84 PRINT “it Passes between two Protons then its" 128 PRINT “are not Protons. You can also rank the" 

8S PRINT “Path is uneffected. “ 129 PRINT “Probability of a Proton being in a spot." 

86 PRINT 138 PRINT “When You want to 9et back to the exper-" 

87 PRINT “When the electron emerges from the box" 131 PRINT “iment You Press the HOME key." 

88 PRINT “it leaves a beam of red li9Sht for a" 132 PRINT: PRINT: COLOR S:PRINT“PRESS ANY KEY TO CONTINUE": COLOR 4 

89 PRINT “few seconds. “ 133 GOTO 6 

98 COLOR S:PRINT “HIT ANY KEY TO CONTINUE"$:COLOR 4 134 FOR X=1 TO 8: FOR Y=1 TO B82 IF ACK,Y=1 THEN PAINT (C¥D*3B84+315,¢0K%3"134+485,2,1 
91 IF PEEK(1424)=68 THEN X=RND: GOTO 91 ELSE X$=INKEVS$ 135 NEXT: NEXT 

92 CLS 136 IF PEEK(1424)>=6@ THEN 136 ELSE RUN 

93 PRINT “Here are some examPle shots.....00.." 137 K2=315+Oe 3B: VY2=414+We1 32 XL=X22:V¥1L=¥2 

94 PRINT “ eeeeeexs eceseece" 138 P=PEEK(1424):I1F (P< 28 OR P>32> AND P<K>13 AND P<>12 THEN U=7-U:SPSETCKLI,¥1,U%: 
95 PRINT “ @XK 3?>,6 XK -Proton ecececees" 60TO 138 

96 PRINT “ eerteeele eseexXece " 139 IF P=12 THEN GOSUB 151:60T0O 138 

97 PRINT “ eeteex>—— -Exit +—_++++-, ¥@@ " 146 IF P=13 THEN 134 

98 PRINT "° eerteseoe eseeteee" 141 BX=Q:BY=W:IF P=28 THEN Q=Q+1 

99 PRINT "* eereeeos eecetece" 142 IF P=29 THEN Q@=Q-1 ELSE IF P=3@ THEN W=W-1 ELSE IF P=31 THEN W=W+1 
166 PRINT “ @@ ‘¢¢<e+eee +Entry Point eX -” eee" 143 IF P=32 THEN IF (@=@ OR Q=9> AND (W=6 OR W=9> THEN 147 ELSE RETURN 
101 PRINT " eexesese eerexXeee " 144 IF Q@<8 OR Q>9 OR W>S9 OR WKB THEN 147 

102 PRINT " + . 145 IF Q@>@ AND @<9 AND W>B AND WK9 THEN 147 

183 COLOR S: PRINT “HIT ANY KEY" 146 GOTO 148 

164 PRINT "TO CONTINUE";$:COLOR 4: PRINT “ s" 147 Q=BX:W=BY: GOTO 138 

105 PRINT “ i 148 X1=315+O* 38s VL=a414+We1S 

1806 PRINT “ 1" 149 PSET (K1,Y1,7>:PSET (X2,42,0)2:X2=X1i:¥2=¥1 

187 PRINT “ eeeeseee eseeeexe esceeste" 15@ GOTO 1238 

108 PRINT “ eexxeeee ex 978 eX ->>/ @" 151 J=@:K=0:GOTO 167 

169 PRINT “ eeerteces eerecete eeresexe" 152 P=PEEK(1424):1F P=0@ THEN LOCATE J+3,K+8: PRINT" "“CHRE¢(29)K$3:60TO 152 
118 PRINT “ eeereeee eerese!e eeresece " 153 IF P=1i1 THEN RETURN 

111 PRINT “ @eex+tKeee eeresele eereceos" 154 IF P=8 THEN LOCATE J+3,K+8: PRINT “@"3: GOTO 167 

112 PRINT “ eeerteces @@ S++ X @e ‘+++, X" 155 IF P=18 THEN LOCATE J+3,K+6:PRINT"X"3: GOTO 167 

113 PRINT “ eeertesse eexXeeerte eexeeere" 156 IF P>27 AND P<32 THEN 159 

114 PRINT “* eeeresee eesccere esceserte" 157 IF P>31 THEN LOCATE J+3,K+8: PRINT CHRECP>3:GO0TO 167 

115 PRINT " + + s" 15@ GOTO 152 

116 IF PEEK(1424>=6 THEN X=RND: GOTO 116 ELSE X$=INKEVS$ 159 IF P=28 THEN J=J+1:G60TO 163 

117 CLS:PRINT “To assist You in Your exPeriment a board"; 160 IF P=29 THEN J=J-1:60TO 163 

118 PRINT “has been Provided for You to use as a" 161 IF P=36 THEN K=K-1:60TO 163 

119 PRINT “Suide. You can set uP Protons on it so" 162 K=K+i 

120 PRINT “You can best judge where to shoot next." 163 IF K>? THEN K=? 

121 PRINT “To use the bourd You press the CLS key," 164 IF K<® THEN K=8 

122 PRINT “then You can move about the board by the"; 165 IF J<®@ THEN J=@ 

123 PRINT “arrow keys. To set a Proton press the" 166 IF J>? THEN J=? 

124 PRINT “INS key, to reset it press the DEL key." 167 K¢#¢=CHRE¢CSCREENC J+3,K+623:60TO 152 

125 PRINT “You may Press any key and that simbol or"; 

126 PRINT “letter will aPrPear on the board. This" 

127 PRINT “way You maY cancel Places that You know" 
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After reading Les Bell’s “Under- 
standing Assembler” tutorial in 
the October 1983 issue of 
“Your Computer”, | was_ in- 
spired to write a BASIC pro- 
gram to count the words in a 


100 ’ 
110 ” 
120 ’ 
130 ° 
140 ’ 


WORD COUNT By 


150 
160 
170 ° 
180 ON ERROR GO TO 830 

190 CLS: WIDTH 80: NWORD=0: DRVES="1:° 
200 
210 


@ command line. 


LOCATE 31,2: PRINT 


240 ° 


2640 ’ 
COLOR 6:LOCATE 8,5 


Philip Cookson 


word processing data file (Les 
suggested to write a word 
counting program in a higher 
level language before attempt- 
ing a machine code version). 
The program is written in Micro- 


November, 1983 


This program performs a word count on a data file created by the 
HiWriter word processing package. 
of letters A-Z or a-z separated by spaces or by a carriage return. 
This program ignores control characters, or words appearing on an 


Words are defined to be groups 


LINE (0,0) - (639, 199) ,PSET,1,B: COLOR 5 

"wORD COUNT? 
LOCATE 31,3:PRINT "-------------- 
LOCATE 25,23:PRINT “3HHt Default Drive is 1: 


WHE” 


’" Input name of data file that is to be counted 


WORD COUNT FOR HITACHI PEACH 


soft BASIC. Although the pro- 
gram is slow, it works correctly 
and will be of use to anyone 
who uses the HiWriter word 
processing software. The pro- 
gram performs a word count of 


370 ° 


ACHARS=INPUTS (1, #1) 
IF ACHARS=" ° THEN GO TO 


620 ° 
640 ’ 
ACHARS=INPUTS (1, #1) 
680 ’ 


700 '' 
LOCATE 37,12:PRINT NWORD 


CLOSE #1 


Phillip Cookson 
Doveton NSW 


a text file created by HiWriter 
(which currently has no facility 
for performing a word count). It 
ignores embedded format com- 
mands and remarks giving an 
accurate word count. 


NWORD=NWORD+1: LOCATE 37,12:PRINT NWORD 


510 
IF ACHARS=CHRS(13) THEN GO TO 510 ELSE GO TO 390 


* Subroutine to ignore all words appearing on an @ command line 
IF ACHARS="@* THEN GO TO 510 

IF ACHARS=CHRS(13) THEN GO TO 510 ELSE GO TO 650 

’ Print the word count on the screen 


COLOR 2:LOCATE 30,14:PRINT "Counting Completed”: BEEP 


’" Search another data file ? 


PRINT “Please input the name of the data file that you wish to count.” 


290 COLOR 7:LOCATE 35,7: INPUT””",-LNMES 
300 " 

310 ° Place the input in a valid format 
320 ° 

330 


IF RIGHTS (FLNMES,4)<¢>°. DAT" THEN FLNMES=FLNMES+* . DAT" 
LF LEFTS(FLNMES,2)<>°1:" OR LEFTS(FLNMES, 2)¢>°0:"* THEN FLNMES=DRVES+FLNMES 


7460 ” 
COLOR 4:LOCATE 15,20 

PRINT "Do you wish to search another data file 
ANSS=INKEYS: IF ANS@="" THEN GO TO 790 

IF ANS$="n" OR ANSS="N" THEN COLOR 7: CLS: END 
IF ANSS$="y" OR ANSS="Y"° THEN GO TO 190 ELSE BEEP:GO TO 790 
820 ” 
830 ’ 


(Y/N) ? * 


Error handling subroutine 


340 

350 ’ 

360 ° Print name of data file being searched 
370 ’ 

380 LOCATE 6,535:PRINT SPC (70) 


390 COLOR 6:LOCATE 22,5:PRINT “Data file currently being searched” 
400 COLOR 7:LOCATE 33,7:PRINT FLNMES 

410 " 

420 ’ Open data file to be searched 

430 ’ 

440 OPEN °1I",#1,FLNMES 

450 COLOR 3 

460 LOCATE 30,10:PRINT ° Number of words * 

470 LOCATE 30,14:PRINT "Count in progress” 

480 " 

490 * Search for letters A-Z or a-z 

500 ' 

310 ACHARS=INPUTS(1,#1) 

520 IF ASC (ACHARS) >64 AND ASC (ACHARS)<91 THEN GO TO 580 
530 IF ASC (ACHARS)>96 AND ASC (ACHARS)<123 THEN GO TO 580 
540 IF ACHARS="@"* THEN GO TO 650 ELSE GO TO 510 

sso ° 


* Subroutine to count 


CAMEL FOR CASIO PB-100 


The game ‘Camel’ is originally 
from the book ‘Basic Computer 


words, and locate the end of the word 


and the EXEC key must be hit 
to continue (this is faster than 


Games’ by David Ahi, although letting it print out long mes- ys 
this version was written on a — sages on its own). so 


train trip between northern During the course of the ‘$f 
NSW and Sydney. game, variables, such as drinks as 
The am of the game is to _ left or camel days left, will vary igs 
travel 200 miles across a hostile | according to your instructions 11 
desert while the pygmies are so a STATUS CHECK (5) will as 
chasing you. In order to fit it into indicate whether it is necessary 13 
14 


a PC-100 with the RAM pack (it 
takes 1399 steps) the mes- 


to stop for the night or take a 
drink. 


sages have been abbreviated. Variables used are: - 
For example: C...distance covered by the 28 
L. 120 — distance pygmies player at 


are behind; 


D...distance covered by the 


g40 ’ 
830 ’ 
IF ERR=354 THEN RESUME 710 
870 ” 

’" File not found error 

IF ERR<>63 THEN GO TO 950 
COLOR 2:LOCATE 32,9 


910 

920 RESUME 190 

930 ’ 

940 ”* Device Unavailable error 
950 IF ERR<>60 THEN GO TO 1010 
960 COLOR 2:LOCATE 32,9 

970 

980 RESUME 190 

990 " 

1000 ” Miscellaneous error 


1010 CLS:LOCATE 5,12 
1020 BEEP: PRINT 


PRINT "CAMEL" 
INPUT “INSTRUCTION” ,%: IF 
MID(1,1)="Y";3;GOSUB 1999 
GOSUB 1939 
INPUT "LEVEL 1-3°,G 
IF C199 THEN 968 
ZeZ7-1:IF Z<=L1; PRINT “GET DRINK" 
IF Z2<@ THEN 949 
P=P+1:X=INT ((3+G) HRAN#+2.5) 
IF P<4 THEN 139 
@ D=D+xX:IF D<C THEN 129 
@ PRINT "Captured by pygmies*: GOTO 
11989 
@ PRINT “Pygmies"3;C-D3;" m” 
@ PRINT "You";C3" m’” 
@ IF S=1;PRINT “Oasis. .now” 
@ R=O9: INPUT "COMMAND", Y:IF Y<1 THEN 
138 
@ IF Y>6 THEN 139 
@ GOTO Y#18G8+198 
@ S=S-1:Z=4:1F S<O THEN 949 
g GOTO 149 
@ PRINT *°Mod. 
I3O 


Pace":F=F+e1l:IF F>7 THEN 


L. 130 — distance you have pygmies 319 GOTO 82e 

travelled: Z t . 328 X=INT (ISGERAN#) 5 C=C+X 
.. turns you can go without a 338 GOTO 5a 

L. 610 — turns you can go drink 49@ PRINT “Fast Pace":F=F+3:IF F>7 THEN 
without a drink; S...number of drinks left ave aera eee 

L. 600 — number of days the F...';camel days’ left 428 X=INT(RAN##1G) #2: C=C +X 
camel can travel without a rest. G...skill level Bee ye eat eta giet eae 

The instructions have been Y...command choice IF S<8 THEN 948 
H . 3128 GOTO 68 
included so they may be written P&R are used as counters. SARVERINY SCAneRIGC Et? Wave tSaae 
down if necessary before you drinks" 

The display frequently halts rY = 438 GoTo 149 
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Kentucky NSW 


End of data file detection 


BEEP: INPUT WAIT 92035, "FILE NOT FOUND"; DUMS 


BEEP: INPUT WAIT 98035, "DEVICE UNAVAILABLE” ; DUMS 


“ERROR CODE*,ERR, "ON LINE", ERL:> END 


798 T=INT(RAN##EI1O) > IF T#i THEN 949 
TO 392 
A=INT (RAN##199)°IF ADS THEN 919 


ransom” 
INPUT "ACTION"’,X: IF X=2 THEN 889 
X=INT (RAN##19):IF X<3 THEN 879 
PRINT “ESCAPED!'*:GOTO 39 
PRINT “Mortally Wounded": END 
X=INT (RAN##¥1900):° IF X<=24; PRINT 
"Ransom paid":GOTO 52 
PRINT "Wait... 
"Cell key lost": END 
GOTO 849 
PRINT "Oasis...":Z=4:F=F-2:S=6:1F 
F753 F=7 
GOTO Y¥19GH+139 
PRINT “Terminal dehydration": END 
PRINT “Killed camel": END 
PRINT “##YOU WIN##", "Pygmies 
pleased”":END 


1699 PRINT “CHOICES: ","1) DRINK", "2) MODER 


ATE SPEED" 


1919 PRINT “3) FULL SPEED","4)STOP FOR 
NIGHT” 
1928 PRINT "5S) STATUS CHECK", "6) HOPE FOR 


HELP" > RETURN 


1939 VAC 

1849 Z=5:S=6: RETURN 

1198 X=INT(RAN##199):PRINT “CHOICES: ” 
111@ PRINT “1) Fight", "2)Run” 

1128 INPUT “°ACTION",V:IF V=2 THEN 1159 
1138 IF X>89;D=C-298:GOTO 58 

114@ PRINT “Kneecaps attacked":END 


1159 IF X>69;PRINT "“Escaped...":D=C- 


18:GOTO 598 


1169 PRINT "Pygmies will feast”:END 


PRINT "Found Unconscious": S=3: Z=4: GC 


PRINT "Captured by Berbers”, "CHOICES 


PRINT "“1) Attempt escape”, "“2)Wait for 


":R=R+1:IF R33 PRINT 


A=INT (RAN##19): IF A>2 THEN Y#199+129 


Ohio 
HIGH-SPEED 
TRIGONOMETRIC FUNCTIONS 


This is a program for Forth on 
the Ohio Scientific Computers, 
but the programs are designed 
to operate on any Forth 
machine. The program provides 
high speed trig functions for real 
time applications. 

It is possible to obtain trig 
functions from the floating point 
system used by BASIC in ROM 
but these routines are slow 
when needed for real time plot- 
ting of graphical information. 


These programs provide a 
source of values for Sine x to 
plot circles in real time. 

The routine is called using: ‘n 
SIN’ where n is a signed integer 
number on the top of the stack. 
It returns a_ signed integer 
number to the stack. This value 
is SIN n degrees times 10,000. 
Values for Cosine are obtained 
in a similar manner, that is, ‘n 
Cos’. 


John Lindsay 
Trinity Gardens SA 


SCR # 15 SCR # 16 

O ( TRIG FUNCTIONS ---- J.S.LINDSAY 27/2/83 ) QO ( TRIG FUNCTIONS 2 ) 

1 FORTH DEFINITIONS DECIMAL 1 : TABLE 41 0 DO 90 I - SINTABLE ! LOOP ; TABLE 

2 91 ()DIM SINTABLE ( SET UP 91 ELEMENT ARRAY INC. 0 ) 2 FORGET TABLE ( USE AND DISCARD ) 

3 ( START OF LOOK UP TABLE ) 3 : SIN180 DUP 90 > IF 180 SWAP - THEN SINTABLE @ ; 

4 0000 0175 0349 0523 0698 0872 1045 1219 1392 1564 4 

5 1736 1908 2079 2250 2419 2588 2756 2924 3090 3256 3 : SIN DUP DUP ABS / SWAP ABS 

6 3420 3584 3746 3907 4067 4226 4384 4540 4695 4848 6 360 /MOD DROP DUP 180 > IF 180 - -1 SWAP 

7 5000 5150 5299 5446 5592 5736 5878 6018 6157 6293 7 ELSE 1 SWAP THEN SIN180 * * ; 

8 6428 6561 6691 6820 6947 7071 7193 7314 7431 7547 8 

9 : TABLE 50 0 DO 49 I - SINTABLE ! LOOP ; TABLE 9 : COS 90 + SIN ; 

10 FORGET TABLE ( USE AND DISCARD ) 10 

11 7660 7771 7880 7986 8090 8192 8290 8387 8480 8572 11 

12 8660 8746 8829 8910 8988 9063 9135 9205 9272 9336 12 3S 

13 9397 9455 9511 9563 9613 9659 9703 9744 9781 9816 13 

14 9848 9877 9903 9925 9945 9962 9976 9986 9994 9998 14 

15 10000 -=> 15 

OK 


MEMORY TESTER 
FOR CASIO 


FX-702P 


This is a fairly simple Memory 
Test game in which the com- 
puter generates an increasingly 
large random number (dis- 
played on the screen for an in- 
creasingly large period of time) 


HEMORY TESTER 
#e”:PRT ™” 
15 INP "ANY HUMBER 


el) 

26 S=INT (RAN##18> 
1994188 

25 IF S=@ THEN 26 

36 H=INT ($42) 

39 C=C+5 

40 WAIT CiPRT "REM 
EMBER” N 

49 WAIT 6@:PRT ” 


68 IF W=3 THEN 206 

8@ INP "WHATS THE 
NUMBER”, $ 

96 IF SSNsWAIT 26: 


SAMPLE RUN 


ee HEAORY TESTER + 
NUMBER=? 
REMEMBER 4 


‘iio THE NUMBER? 
RIGHT! 

1 RIGHT SO FAR 
REMEMBER 33 


at THE NUMBER? 
3 

RIGHT! 

2 RIGHT S0 FAR 
REMEMBER 304 


WHATS THE HUMBER? 
403 * 


which you, after a ten second PRT "WRONG”:W=H = HROHG 
pause, have to input back. The 4 eae 13 st THE HUMBER? 
computer allows you three tries GHT!":R=R+L:H=@ WRONG 


to input the correct number, but 
three ‘strikes’ and you're out. 


Patrick Mead 
Ashgrove QLD 


$2=1142 

126 WAIT 26:PRT R3” 
RIGHT SQ FAR”: 
GOTO 26 

200 WAIT 3@:PRT "FO 
REET IT!START 0 
VER": 6070 1 


WHATS THE NURBER? 
346 

WRONG 

FORGET IT!START OFER 
¥* MEMORY TESTER ## 


ANY HUMBER=? 


ISSUES: 


Does your child really need a home computer? 


It’s become rather difficult to see through all the media 


hype! We provide down-to-earth answers to major 
questions (Will your child by handicapped without a 
computer? Or even handicapped by one?) 

The push into the schools market 

An impartial look at the wave of advertising power 
currently breaking over the (supposedly) lucrative 


schools market. Who really stands to gain — the kids, 


3 


or computer manufacturers? + 


VIEWPOINTS: 


What the experts say 

Recognised authorities in the fields of both education 
and computing give their opinions. 

How the teachers feel 


Computers are likely to feature strongly in the future of 


education. We tell how teaching staff are coming to 
grips with this fact. 


What the kids think 


Are computers worthwhile? Just good fun? Or a waste 
of time? Students comment (candidly) on how they feel 


about computer education. 


All this, plus a useful 
directory of services, and 
a simple-language 
glossary to help you in 
your purchase of a 
computer. 


AVAILABLE JANUARY, 1985 


AT LAST! A 
PUBLICATION FOR 
TEACHERS, PARENTS, 
STUDENTS ... AND 
ANYONE CONCERNED 
WITH THIS VERY 
IMPORTANT ISSUE. 


PRACTICALITIES: ra 


How to pick the right system 

For high schools, primary schools. 

Educational software 

What’s available; what’s really educational; what to look 
for when shopping. 

Networking and schools 

What it is; how it works; how it can help. 

Computer aided education in practice 

Getting right down to basics: how are computers 
actually used in the schoolroom? 

Computers in administration. The out-of-the-classroom 
aspect. How computers can streamline the behind- 
scenes running of a school. 


CASE HISTORIES: vf 


The UK scene 

How far has computer education advanced overseas? 
And how far will it go? 

True-life stories 

From schools around Australia — how computers are 
working for them. 


ACT Micro 80 Users Group, Bill 
Cushing, 10 Urambi Village, 
Kambah, 2902, 062 313630. 

ACT Vic 20 Users Association, 
Chris Groenhout, 25 Kerferd St, 
Watson, 2602, 062 41 2316, 
Meetings 1st Monday’ each 
month at Boy’s Grammar Scout 
Hall, Red Hill, 7.30 onwards. 
ACTARI, Chris McEwan, Co-Or- 
dinator, ACTARI, P.O. Box E112, 
Canberra, 2600, 062 88 7861. 
Apple User Group (ACT), Jeff 
Brock, 1 Buckley Circuit, KAM- 
BAH, 2902, 062 313630. 


Australian ZX80 Users 


Group(AZUG), David Brudenall, 
19 Godfrey Street, 


Campbell, 


Alice Springs Microbee Users 
Group, Douglas Craigie, c/- PO 
Box 3230, Alice Springs 5750. 
Darwin Microbee Users Group 
DBUG, Felino Molina, P.O. Box 
3111, DARWIN, 5794, 089 82 
5613bh, 089 88 1455ah. 

N.T. Computer Club, lan Diss, 


AACC, Adelaide Atari Com- 
puter Club, meets at Gilles 
Street Primary School, City, on 
first Monday (second if first is on 
Public Holiday) of each month. 
Secretary, PO Box 333, Nor- 
wood, SA 5067. 


Adelaide Lotus 1-2-3. User 
Group, Paul Wragg, Pannell Kerr 


Foster, GPO Box 1969, Adelaide. 
Adelaide Micro User Group, R. 
G. Stevenson, 36 Sturt Street, 
Adelaide, 5000, for TRS-80 and 
System 80 Users. 

Adelaide Osborne Group, Rus- 
sell Barter, The Secretary, 410 
Regency Road, PROSPECT, 
5082. 

Beebnet, BBC and Econet User 
Group P.O. Box 262, KINGS- 
WOOD, 5062, The group intends 
to produce a newsletter on a 
monthly basis. It is interested in 
any software producers or dis- 
tributors who would be interested 
in serving the groups market re- 
quirements. 

Commodore/Vic Computer 
Users Assoc., Mr Eddie Hann, 
13 Miranda Road, PARALOWIE, 
5108, The SA branch meets 


COMPUTER CLUB LIST 


2601, for ZX80/Microace owners. 
Canberra ACT Sirius User 
Group, Jim Bland, 062 81 2824, 
062 81 2832. 

Canberra Compucolor Club 
(CCC), Meets 7.30 on first Sun- 
day of every month at the offices 
of Digital Equipment, 28 Lonsdale 
Street, Braddon ACT. 

Canberra Microbee Users 
Group, Hugh Gibson, Microbee 
Store, Level 1, Cooleman Court, 
Weston, 2611, 062 88 6384. 
Canberra Microbee Users 
Group, Adrian Van Wierst, 9 
McGowan Street, Dickson, 062 
49 7030. 

Canberra Micro-80 User Group, 


meets at Wulagi Primary School 
on the first and third Thursday of 
each month at 7.30. Users of ail 
machines and other interested 
parties welcome, (089) 27 9208. 

N.T. 80 Computer User Group, 
R T O’Brien, 433 McMillans 


monthly. 

Compucolor-Intecolor User of 
S.A., P.O. Box 86, Torrensville, 
5031, 08 352 3296. 

DEC Personal Computer Spe- 
cial Interest Group, see NSW 
entry. 

IBM-PC S.A. Users’ Group, PO 
Box 68, Walkerville 5081. 

Kaypro User Group, Myles 
Wakeham, 100 Pirie Street, 
Adelaide, 5000, 08 223 6333, 
meetings 1st Tuesday each 
month. 

Microbee Users Group of S.A. 
MUGSA, The Secretary, GPO 
Box 767, Adelaide 5001. 

S.A. Commodore Computers 
U.G., Eddie Hann, The Secretary, 
P.O. Box 427, North Adelaide, 
5006, 258 6367, meetings sec- 
ond Tuesday each month, 7.30 at 
Royal Caledonian Hall, 379 King 
William St, Adelaide. 

S.A. Foundation for Computer 
Literacy, Michael Kennett, PO 
Box 210, Norwood 5067, caters 
for children from 6 years (unac- 
companied) or 4 years with older 
friend or brother or sister. Special 
emphasis on the needs of hand- 


Milt Cottee, 33 Crawford Cres, 
Flynn, 2615, 062 58 8822, meet- 
ings third Monday each month 
7.30 pm in the small theatrette, 
Reid TAFE, for System 80, TRS- 
80 etc. 

Canberra NEC Users Group, 
Mal Smith, PO Box 173, Belcon- 
nen 2616, meets first Tuesday 
each month at Main Conference 
Room, CSIRO Headquarters, 
Limestone Avenue at 7.30, (062) 
54 1614. 

Canberra Osborne Group, c/o 
Geoff Cohen, P.O. Box 136, Kip- 
pax, 2615, 062 54 7608. 

Micsig, Registrar, P.O. Box 446, 
Canberra, 2601. 


Road, JINGILI, DARWIN, 5792. 
The Microcomputer Assoc. of 
the N.T, Andy Smith, Darwin 
Community College, 
CASUARINA, 5792. 

VZ-200 Users Club, 7 Abbott 
Crescent, Malak, Darwin 5793, 
(089) 272830. 


icapped, and educably disabled 
and socially disadvantaged chil- 
dren, but ALL children welcome. 
Family participation encouraged, 
phone (08) 51 5474. 

S.A. Peach User Group, Geoff 
Drury, 27 Creslin Tce, Camden 
Park 5038, (08) 352 2555 or 295 
2778 (ah), special interest group 
attached to the SA Microproces- 
sor Group which holds separate 
meetings. 

S.A. Microprocessor Group Inc 
SAMG, The Secretary, P.O. Box 
113, Plymton, 5038, 08 278 
7288. 

Sorcerer Users Group of S.A., 
Don Ide, 14 Scott Road, Newton 
5074. 

South Australian Apple Users 
Club, The Secretary, SAAUC, C/- 
The Bookshelf, 169 Pirie Street, 
Adelaide, 5000. 

South East Computer’ En- 
thusiasts’ Group, Glenn Mibus, 
3 Millard St, Mount Gambier 
5290, 087 25 1046, meetings 2nd 
and 4th Tuesday of each month 
from 6.30 at Mt Gambier High 
School Computer Room, for all 
machines and interested parties. 
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COMPUTER CLUB LIST 


Dist 
U.G., Eric Eulenstein, 202 Kooba 
St, Albury, 2640, 060 25 1601. 
Apple Users Disk Exchange 
Club, Peter Lapic, 45 Malabar 
Street, Canley Vale 2166. 


Albury-Wodonga Mbee 


Apple Users Group, Colin 
Rutherford, P.O. Box 505, 
Bankstown, 2200, meets 6.30 pm 
second Monday of each month 
(Tue after pub. hol.) at Sydney 
Grammar School, Stanley Street, 
Sydney, 02 520 0926. 

Atari Computer Enthusiasts, 
Tony Reeve, PO Box 4514, Syd- 
ney 2001. 

Ausborne, Brian Carney, 477 
4492, P.O. Box C530 Clarence 
Street, Sydney, 2001, meetings 
third Wednesday each month at 
6.30 in the North Shore Council 
Chambers, for Osborne users. 
Ausbug, Stephen Ford, P.O. Box 
62, Londonderry, 2753. 
Australasia ZX80 Users Group, 
Tony Mowbray, 87 Murphys Ave, 
Kieraville, 2500, 042 28 5296, for 
ZX80/81 Microace owners. 
Australasian ZX80 Users News- 
letter, 87 Murphys’ Ave, 
Kieraville, 2500. 

Blue Mountains Microbee Com- 
puter Club, Roger Cooper, 047 
58 7238. 

Blue Mountains Computer 
Club, Eric Lindsay or T. Macin- 


doe, C/- P.O. Faulconbridge, 
2776. 
Broken Hill Microbee Users 


Group, Peter Cotter, 533 Radium 
Street, Broken Hill, O80 881621. 
Central Coast Apple Users 
Group, C.W. Lee, 662 The 
Entrance Road, Wamberal 2260, 
meetings first Tuesday each 
month at the Niagara Park Public 
School from 7.30 pm, (043) 84 
3419. 

Central Coast Computer Club, 
Max Maughen, P.O. Box 36, Et- 
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talong Beach, 2257, 043 24 
2711, 1st and 3rd Tuesday every 
month at Applied Technology, 
West Gosford, for all types of 
Con iputer. 

Commodore Users Group, John 
Guidice, G.P.O Box 4721, Syd- 
ney, 2001. 

Compucolor Users Group, 
Tony Lee, 52 Cowan Road, St. 
Ives 2075, phone (02) 449 8824. 
Cumberland Computer User 
Group, S. O'Neil, 02 682 3851. 
DEC Personal Computer Spe- 
cial Interest Group, Marion 
Rhydderch, DEC Australia, 
Northern Tower, Chatswood 
Plaza, Railway Street, 
Chatswood 2067, 02 412 5252. 
Dubbo and District Microbee 
Users Group, Coralie Taylor, 18 
Cunningham Street, Dubbo 2830, 
meets 4th Wednesday each 
month at 7.30 in the Dubbo High 
School Computer Room. 

A.P.F. Users Group, Norm 
McMahon, 288 Kissing Point 
Road, TURRAMURRA, 2074, 02 
44 2645. 

Hawkesbury Commodore Com- 
puter Club, Richard Farrell, 12 
Inverary Drive, Kurmond 2757, 
meets 4th Tuesday. of each 
month at 7.30pm at Neighbour- 
hood Centre, West Market Street, 
Richmond. 

Hawkesbury MicroBee Com- 
puter Club, Bruce Rennie, 045 
67 7329. 

HP Desktop Computer Users 
Group, Dr. R. W. Harris, CSIRO 
Division of Mineral Physics, PMB 
7, Sutherland 2232, 02 543 3460 
Hunter U. G.- All Microcomput- 
ers, Secretary, P.O. Box 39, 
BROADMEADOW NSW, 2298, 
Meets on the second Wednesday 
of each month in Room 308, 
building W, University of Newcas- 
tle at 7.45pm. Membership is 
primarily Apple Il orientated, but 
anyone with interest in micros 
welcome. 

lllawarra Microbee Computer 
Club, Ronald Read, 49 Beatus 
Street, Unanderra, 2526. 
lllawarra Super 80 Users 
Group, Jim O’Grady, Chairman, 
P.O. Box 1775, Wollongong, 
2500. 

Kaypro Users Group N.S.W., 
Harry Richards, 4/2  Bortfield 
Drive, Chiswick, 2046, 02 713 
1585, meets 2nd Tuesday each 
month at 8.00 pm in the Burwood 
R.S.L. 


Sydney Lotus’ 1-2-3 User 
Group, Ron Pollak, (02) 29 5316. 
Macarthur Computer Associa- 
tion, J Napier, 23 Athel Tree 
Crescent, Bradbury 2560, meets 
first Monday each month at Airds 
High School, Briar Road 
Carmpbelltown at 7.30 each 
month, all machines are catered 
for, 046 25 2055. 


Macquarie Microbee Users 
Group, Brian Thompson, meet- 
ings first Monday each month at 
Denistone East Primary School at 
7.30 pm, 02 85 1659 after hours. 


MEGS (Microcomputer Enthus. 
Group), John Whitlock, P.O. Box 
1309, Chatswood 2067. Meetings 
third Monday each month at rear 
of St. Andrew’s Presbyterian 
Church, 37 Anderson Street, 
Chatswood, (02) 638 1142. 


Mi Computer Club, Norma 
Jackson, P.O Box 21, Waterloo, 
2017, 02 662 8888. 

Microbee Users Club (Broken 
Hill), Peter Cotter, 533 Radium 
Street, Broken Hill 2880, 080 88 
1621. 


Newcastle Microbee Users 
Group, Lee Osman, 12 Cleverton 
Close, Warners Bay 2282, 049 
48 8813. 

Newcastle Microcomputer 
Club, Angus Bliss, PO Box 293, 
Harnilton 2303, meetings 2nd and 
4th Monday each month at room 
G12, Physics Building, Newcastle 
Uni, 049 67 2433. 

N.S.W. Primary School Micro- 
bee Users Group, Mr Peter 
Stretton, c/- Hunters Hill Primary 
School Alexandra Street, Hunters 
Hill 2110. 

N.S.W. 6800 Users Group, 27 
Georgina Ave., Keiraville, 2500. 
Northern Beaches Vic User 
Group, E. Tuxford, 161 Barren- 
joey Rd., Newport, 2106, Ph 997 
2467, Community Centre (If 
We're lucky). 

Northern N.S.W MICC Chapter, 
Alen Hartley, Dundurrabin via 
Dorrigo, 2433, 066 57 8160. 
N.S.W Peach User Club, Daniel 
Soussi, 02 698 8286, weekly 
meetings on Saturday from 2pm 
at ‘Cybernetics Research’ 120- 
122 Lawson St Redfern. 

OSI Users Group, Nigel Bisset, 
02 411 7142. 

Pocket Computer Users Club, 
George Antonijevic, 02 683 4296, 
for those interested in pocket 
computers, whatever the brand. 


Meetings held on the first 
Wednesday of each month at 
7.30pm at the ‘Woodstock’ Com- 
munity Centre, Church St. Bur- 
wood. 

Sorcerer Users Group, P.O. 
Box E162, St James, 2000, meet- 
ings 1st Tuesday each month at 
7th Floor Datec House, 220 
George Street, Sydney at 
7.30pm. 

Southern Districts Commodore 
Users Group, Lex Toms, 602 
8691, 3 Lucille Crescent, Casula 
2170, Meetings 1st and 3rd 
Wednesday each month, API Hall 
Currajong Road, Prestons. 
Sutherland Super 80 Group, 
Jim Traeger, 02 525 2018, Super 
80. 

Sydcom 64 (C64 User Group), 
Andrew Farrell, meetings first 
Tuesday of each month at 6.30 
pm above Computerwave, 
George Street, Sydney, 02 99 
2640. 

Sydney Forth Group, Peter Tre- 
geagle, 10 Binda Road, Yowie 
Bay, 2228, 02 524 7490, meets 
2nd Friday of each month at 
7.00pm in the John Goodsell 
Building, UNSW room LG19. 
Sydney MicroBee Users Club, 
Colin Tringham, 92 6408, PO 
C233, Clarence St, Sydney 2000, 
Meetings 3rd Sat each month 1-5 
pm McMahons Point Hall, Blues 
Point Rd North Sydney. 

Sydney Peach User Group, Ben 
Sharif, 261 Northumberland 
Street, Liverpool, 2170, 02 601 
8493. 

Sydney TRS-80 Users Group, 
meetings 2nd, 3rd and 4th Satur- 
day of each month at Botany, 
phone (02) 666 4716 bus hours. 
TAG-The Access Group, Bob 


Dolton, PO Box 943, Orange 
2800, for Access and Actrix 
users. 


T.l. Sydney Home Computer 
U.G., P.O. Box 149, Pennant 
Hills, 2120. 

Wagga Microbee Users Group, 
John Simmons, 47 Undurra 
Drive, Glenfield 2650, 069 31 
1302, meetings 1st and 3rd Tues- 
days each month in the Tolland- 
Glenfield Neighbourhood Centre 
at 8.00pm. 

Wizzard User Group, John Mif- 
sod, 150 Bouganville Road, Blac- 
kett, 2770, 02 628 0801. 
ZX-Spectrum Users Club, Craig 
Kennedy, P.O. Box 466, Epping, 
2121. 


Adventure Club, Christine 
Ogden, 37 Samford Road, Leic- 
hhardt, Ipswich 4305, for all Ad- 
venture type game players. 
Apple-Q the Brisbane User 
Group, The Secretary, P.O. Box 
721, SOUTH BRISBANE, 4101, 
Has User Group days every third 
Sunday of month at Hooper Edu- 
cation Centre, Kuran St. Wavell 
Heights. Centre is open from 
8.30am till 4.30pm, members en- 
couraged to bring Apple along. 
Australian Sirius Users Group, 
P.O. Box 204, CHERMSIDE, 
4032, 07 350 2611, Looks after 
the needs of Sirius One and Vic- 


tor 9000 computer users. For 
membership form write to above 
address. 

Basic User Group, Chris Lucey, 
Cranium Computers, 34 Lawless 
Street, Blackwater 4717. 
Brisbane Medfly Users Group, 
K.J. Walker, 120 Highgate Street, 
Coopers Plains 4108. 

Brisbane Sinclair (Spectrum) 
Computer Club, V. Lewis, 37 
Samford Road, Leichharat 
Ipswich 4305, meets third Sun- 
day at Everton Park State High 
School, at 2.00, 07 355 7809. 
Brisbane Super 80 Users 
Group, Gary Gatfield, 08 355 
3173. 

Brisbane Youth Computer 
Group, A. Harrison, P.O. Box 
396, Sunnybank, 4109. 

Cairns District Microbee Users 
Group, Chas Eustance, 21 Marr 
Street, Edmonton 4869, (070) 
554531. 

Commodore Computer Users 
Group QLD, Mrs D D Dillan, P.O. 
Box 127, STONES CORNER, 
4120. 

Commodore Users Group, John 
Egan, P.O. Box 274, 
SPRINGWOOD, 4127, 07 287 


2705, Is for owners of Pet/CBM 
and Vic-20 machines. Meetings 
held on the first Tuesday of the 
month at 130 Petrie Terrace, 
Brisbane. 

Computer Owner’s Group, 
Betty Adcock, 42 Lucan Ave, 
Aspley, 4034, 263 4268, 2nd 
Wednesday each month, 7.45 
pm, all kinds of computer are ca- 
tered for. 

DEC Personal Computer Spe- 
cial Interest Group, see NSW 
entry. 

Gold Coast Microbee User 
Group, Col McLaren, 1-100 Im- 
perial Parade, Labrador, 4215, 
075 314610, meetings first Sun- 
day each month, 3.00 at the 
Southport High School. ; 
IREE Microcomputer Interest 
Group, N Wilson, P.O. Box 811, 
ALBION, 4010. 

Mackay Microbee User Group, 
Geoff Gehring, Box 230, Mackay, 
4740, 079 42 3214. 

Osborne Users Group of Qid 
Uni, Glen McBride, meetings 2nd 
Thursday each month open to all, 
07 371 4243. 

Superboard Users Group, Ed 
Richardson, 146 York Street, 


NUNDAH, 4012. 

Tandy, Apple, Commodore UG, 
Chris Lucey, 34 Lawless Street, 
Blackwater 4717. 

The Microcomputer Society, 
The Secretary, P.O. Box 580, 
FORTITUDE VALLEY, 4006, 
Meetings are held on the second 
Friday of each month in the Old 
Town Hall, corner Vulture and 


- Graham Streets, Sth Brisbane. 


Meetings start at 7.30pm if main 
gate is closed use the back stair- 
way. 

Townsville MicroBee User 
Group TMUG, Mannie Van 
Rijswijk, PO Box 5751 MQC., 
Townsville 4810, meetings 7.30 
pm on second and fourth Monday 
each month on the Ground Floor, 
St Margaret Mary’s Secondary 
School, Crowle Street, Hermit 
Park. 

TRS80/System 80 Computer 
Group, Secretary, 16 Laver 
Street, Macgregor 4109, (07) 343 
5771, meets first Sunday each 
month at Lindum Hall, Lindum 
Street, Lindum at 2.00pm. 

ZX 81 Club, P. Carswell, 22 


1802 Users Group, P.O. Box 
6210, AUCKLAND, NEW ZEA- 
LAND, For those who own an 
ETI-660 or a COSMAC VIP, you 
can contact the 1802 Users 
Group. Be kind and send them a 


return addressed envelope and 
some International Reply 
Coupon. 

Nelson Vic Users Group, Peter 
Archer, Nelson VIC Users Group, 
C/o P.O. Box 860, Nelson N.Z., 
for Vic and Commodore. 


Braud Street, BUNDABERG, 
4670. 
Wellington Microcomputer 


Soc. Inc, Lindsay Williams, 2 
Pope Street, PIMMERTON, NEW 
ZEALAND. 
2X81 Club, R Skelton, C/- Har- 
bourside Orchard, WAIUKU NEW 
ZEALAND. 


*DEC Personal Computer Spe- 
cial Interest Group, see NSW 
entry. 

Devonport Computer interest 
Group, John Steveson, R.S.D 
422, SHEFFIELD TASMANIA, 
7306, 004 92 3237. 
Spectravideo Computer Users 
Group, Mr W. P. Decket, 48 
Heather Street, LAUNCESTON, 
7250, 44 4836, Membership to 
the club costs $15 which entitles 
members to a newsletter and to 


discounts on computer equip- 
ment. 

Tasbeeb, John Hannon, PO Box 
25, North Hobart 7000, meetings 
first Monday each month at 
Elizabethan Matriculation College 
in D Block at 8pm, 002 34 2704, 
for BBC computers. 

Tasmanian T.I. User Group, Co- 
ordinator, 1 Benboyd Court, 
ROKEBY, 7019, 002 29 4009, 
meetings third Sunday of each 
month at University of Tasmania, 


room 373. 

TAS-Micro, Peter Deckert, Unit 
1/456 West Tamar Road, RIVER- 
SIDE, LAUNCESTON, 7250. 
Tasmanian Commodore Users 
Assoc., Vincent T. Staggard, The 
Secretary, G.P.O. Box 391D, 
Hobart, 7000, 002 72 0295, Com- 
modore and others. 

Tasmanian OSI User Group, 
David Tasker, 111 Bass High- 
way, WESTBURY, 7303. 
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COMPUTER CLUB LIST 


Apple Users Society of Mel- 
bourne, D. Halprin, 03 387 3221, 
PO Box 43, Forest Hill 3131. 

AT Microcomputer Club, Grant 
Forest, 03 8792257ah, 03 699 
2888 bh. This club has been 
formed for people interested in 
the Applied Technology DGOS 
Z80. 

Atari User Groups Melbourne, 
Kelvin Eldridge, P.O. Box 178, 
3073. 

Australian Forth Interest 
Group, Tony Latermore, P.O. 
Box 704, SALE, 3850, 051 44 
2011. 

Australian North Star Users 
Assoc., P.O. Box 194, WAN- 
GARATTA, 3677. 

Ballarat Computer Users 
Group, Publicity Officer: John 
Preston, 053 31 4363. 

Billanook Computer Forum, Mr 
Maurie Canterbury, Cardigan 
Road, Mooroolbark 3138, (03) 
725 5388. 

BUG 80 (Burwood Users 
Group), P.O. Box 46, 
BLACKBURN SOUTH, 3130. 
Chip 8, 6800, 1802 User Group, 
Frank Rees, 27 King Street, 
BOORT, 3537. 

Compucolor Users Group, L 
Ferguson, 12 Morphett Avenue, 
ASCOT, 3342. 


DEC Personal Computer Spe- 
cial Interest Group, see NSW 
entry. 

Forth Interest Group, Lance 
Collins, P.O. Box 103, CAMBER- 
WELL, 3124, (03) 29 2600, 
Meets on the first Friday of the 
month at the Bowen Street 
Neighbourhood Centre, 102 
Bowen Street, |§ Camberwell 
South. 

Geelong Commodore Com- 
puter Club, D Gerrard, 15 
Jacaranda Place, Belmont 3216, 
(03) 44 2863. 

Geelong Computer Club, Peter 
McKeon, P.O. Box 93, 
GEELONG, 3220. 

IBM & Columbia Computer 
Users Club, Giles Bray, 22/11 
Auburn Grove, Hawthorn East, 
3123, 82 7632, 2nd Tuesday 
each month, 7.30 at the Victorian 
College of Pharmacy. 

Kaypro Users Group of Vic- 
toria, George Kunz, PO Box 159, 
Forest Hill 3131, 03 857 5462, 
meetings fourth Sunday each 
month at Burwood State College 
Community Resources Centre at 
2pm. 

KAOS (Ohio Scientific), David 
Anear, 49 Millewa Crescent, 
DALLAS, 3047. 

Latrobe Valley Colour Com- 
puter U.G., George Francis, 31 
Donald Street, Morwell, 3840, 22 
1389, for TRS-80 & MC10 users. 
Melbourne Atari Computer En- 
thusiast, PO Box 133, Mulgrave 
North 3170, meetings held on 
first Sunday of each month at 
11.40am at Monash University 
Rotunda. 

Melbourne Lotus 1-2-3 Users 


Group, Robert Taylor, (03) 267 
4800. 

Melbourne MicroBee Users 
Group, Pres Grant Forrest, PO 
Box 157, Nunawading 3131, 
meetings 7.00 pm _ secoid 
Wednesday each month at VIC 
State College-Burwood Campus, 
221 Burwood Highway, Burwood. 
Melbourne PC User Group, 
Stephen Wagen or Christopher 
Leptos, c/o Pannell Kerr Foster, 
14th Floor, 500 Bourke Street, 
Melbourne 3000, phone (BH) (03) 
605 2222. 

Melbourne Peach Users Group 
(MPUG), P.O. Box 191, 
Rosanna, 3084, 03 434 2541. 
Melbourne Super 80 Users 
Group, Hon. Sec. Victor 
Shuttleworth, 03 723 2713. 
MICOM, Microcomputer Club of 
Melb., P.O. Box 60, CANTER- 
BURY, 3126. 

National Mutual Micro Users 
Group, R Prewett, NMLA, PO 
Box 2830AA, GPO Melbourne 
3001, for National Mutual staff. 
National Sinclair User Group, 
P.O. Box 148, GLEN WAVER- 
LEY, 3150. 

National ZX80 Users Club, 24 
Peel Street, COLLINGWOOD, 
3066. 

NEC Portable User’s Group, D 
Green, meetings second 
Wednesday of each month at 
Myers Computer Centre 
Lonsdale Street at 7.30 pm, (03) 
611 3380. 
Northn/Westn 


Sub. Comp. 


Users Group, John King (Secret- 
ary), 284 Union Road, MOONEE 
PONDS, 3039, 03 338 9304, 
Contact CP/M Data Systems. 


Peninsula Computer Club, 
George Thompson, 3 Patterson 
Street, Bonbeach, 3196, 772 
2674, 2nd Tuesday each month 
at Chisholm College, Frankston, 
many types of computers are ca- 
tered for. 

Sharp Computer Users Associ- 
ation, The President, 7 Faye 
Street, East Burwood 3151. 
Spectravideo Users Group, 
Mitch Raitt, Fernhill, Tindal’s 
Road, Warrandyte 3113, (03) 844 
3485. 

Sorcerer Computer Users (Au- 
stralia), Secretary, G.P.O. Box 
2402, MELBOURNE, 3001. 
TI-99/4A Users Group Mel- 
bourne, Wayne Worladge, 123 
Ashburn Grove, Ashburton, 03 25 
1832. 

The Motorola User Group Soc. 
(MUGS), Clive Allan, 11 Haros 
Avenue, NUNAWADING, 3131, 
03 878 1298, Group is interested 
in 6800/02/09 based computers, 
particularly if running Flex al- 
though this is not a prerequisite 
to join. 

Vic. Assoc. of Computer 
Educators, Arthur Totrall, P.O. 
Box 69, WHITTLESEA, 3757. 
Victorian VZ200 User Group, 
Luigi Chiodo, 24 Don St., Reser- 
voir, 3073, 03 460 3770. 
Victorian Wizzard Users Group, 
Barry Klein, 24 Russell Street, 
Bulleen 3105. 

Yarrawonga Computer User 
Group, Chris Younger, 057 44 
3859, 10 Witt Street, Yar- 
rawonga, 3730, for all machines. 
ZX81 Software Exchange, C/- 
Chips Taens, 5 Muir Street, MT. 
WAVERLEY, 3149. 


Agriculture Users Group, c/- Mr 
R Fenwick, Dept. of Agriculture, 
Albany 6330. For farmers and the 
agriculture service industries. 

CU WEST WA Compucolor/in- 
tecolor U.G, John Newman, 8 
Hillcrest Drive, DARLINGTON, 
6070. 

DEC Personal Computer Spe- 
cial interest Group, see NSW 
entry. 


162 


KAOS-W.A.,Gerry Ligtermoet, 09 
450 5081, 39 Cloister Ave, MAN- 
NING, 6152, for Ohio Scientific 
Users. 

OSWEST-Osborne Users 
Group of W.A., Mal Ferguson, 
PO Box 199, Mundaring 6554, 
meets first and third Wednesday 
at the Palmyra Recreation Centre 
and the Subiaco Exhibition Hall 
respectively from 7.30, 09 295 
1449, for Osborne and other 
interested computer users. 
Kaypro User Group of WA, 
Ainslie Sharpe, PO Box 91, 
Claremont 6010, 09 384 5511, 
meetings 2nd and 4th Mondays 


of each month in the Canteen of 
the Department of Agriculture, 
Jarrah Road, South Perth. 

Perth 80 Users Group, C Pow- 
ell, 09 457 6849, for System 80 
and TRS 80 Users. 

Perth Hitachi Peach Club, The 
Secretary, 1 Charf Court, River- 
ton, 6155, 09 367 5880, for 
Hitachi Peach & 6809s. 

Sorcerer Computer Users of 
Aust., The Secretary, 90 King 
George Street, PERTH SOUTH, 
6151, 09 367 6351. 

Super 80 Users Group Perth, 
Garry Black, 19 Bendigo Way, 
CITY BEACH, 6015, 09 385 


8813. 

The W. A. Atari Computer Club, 
Mr Alf Gaebier (Secretary), P.O. 
Box 7169, Cloisters Square, 
PERTH, 6000. 

W.A. Microbee Club, 
Oborn, 09 447 5366. 
Vic-Ups, G. Padfield, 09 451 
4629. ; 

W.A. Wizzard Users Group, 
John REid, 13 Wenlock Road, 
Wattleup 6166, 09 410 2359. 
W.A. ZX Users Group, 
Taylor, 09 328 4111, (bh). 
WA University Computer Club, 
2nd Floor, University of WA, 
Guild Building, 09 386 1455. 


Mike 


Phil 


UNLEASH THE MUSIC 


SOUND 


Music Software Inc, 


Hi 
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WEREDIBLE MUSICAL KEYBOARD 


Now with no musical experience you can unleash the music that’s hidden deep within you computer. This unique keyboard comes complete with its own software 
that will get you playing right away. It even includes two music books, one for the beginner, and one for the more advanced musician. 


KAWASAKI KAWASAKI MUSIC COMPUTER 
SYNTHESISER RHYTHMROCKER PROCESSOR TUNE TRIVIA SONG ALBUMS 


This transforms your computer into Create space sounds and Create, edit, record, play and Challenge yourself and your Listen to the hits of Michael 
a programmable synthesiser and _hi-resolution colour graphics tothe | compose your own musical friends to music trivia from an Jackson, Willie Nelson, Denise 
sound processor. Use the beat of electronic rhythms. This arrangements. Use your joystick to almost infinite number of songsand Williams, The Eurythmics, while 
polyphonic keyboard and preset creative Music/Video synthesiser change any of the 99 preset questions. Four fascinating games you control computer generated 
sounds to create yourown music. _ offers a variety of percussion and instrument and special effect in one, add your own tunes and instruments and special effects. 
Unique three-track recording synthesiser sounds that canbe laid: sounds. Full music editor allows trivia questions, try to stump your —_ Every musical arrangement comes 
Capabilities to produce an unlimited down on top of pre-programmed you to create new music or change __ friends. Tune Trivia comes com- complete with bass, rhythm, 
number of instrument sounds and bass lines. one of the 16 pre-recorded tunes. _ plete with superstar songbook and melody and harmony. Computer 
special effects. See visual musical notation on full documentation. Song Albums are also compatible 
the screen. Music Processor is with the music video kit soon to 
compatible with the entire be released. 


computer song album series. 


ee 
i, m FUTURE 1984 RELEASES INCLUDE: 
Music Video Kit - 
Make your own music videos with this powerful graphics processor. Paint a background scene, then 
syncronize your masterpiece to your music. 
3001 Sound Odyssey - 
Travel through a complete tutorial on musical synthesis. Learn how subtle change in A.D.S.R., 


A U STR AL| A IN D) | STR BUTO R S waveforms, ring modulation and filters work together, then create your Own music. 


( 02) 211-1266 AVAILABLE AT ALL GOOD COMPUTER STORES ... 


